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ABSTRACT 



Font definitions of 1377 characters of various styles 
developed by Allen V. Hershey were used as an initial data 
base. His character cefinitions were first out into a form 
suitable for use by vector graphics display processorSf and 
then these vectors were converted into dot matrix form in a 
variety of point sizes. This conversion and digitization 
process was done using the C programming language? the host 
computer was a PDP-11/50 with the UNIX operating systemf and 
the computerized typesetting was done on a VERSATEC 1200-A 
printer/olotter. 

As a result/ a large data base for use in computerized 
typesetting has been developed. In addition, the computer- 
ized typesetting system at the Naval Postgraduate School has 
been improved and adapted to make use of the large number of 
fonts now availaole. 
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I 



INTRODUCTION 



A, BEGINNINGS 

Early in the 1960*Sf as computer technology began to 
develop more and more raoidly^ the influence of computers 
expanded into many new areas. As computers became more so- 
phisticatedf more available^ and easier to use^ many dif- 
ferent groups began to search for computer applications 
within their fields. One field in which several uses were 
found for computers was in the publishing industry. 

Early systems used by newspaper and book publishers in- 
volved various methods for character generation and mechani- 
cal positioning of those characters^ while these systems 
were faster than typesetting by handr they still left room 
for considerable improvement. Current systems electronical- 
ly generate and oosition their characters^ greatly improving 
the speed of the process. 

In his recent book on the subject of electronic Composi- 
tionf N, Edward Berg states that: 

Although the effort to set type by computer has been 
underway since the earlv 1960*sr it has not yet reached 
the age of maturity.... Many exciting new developments 
have already taken place which are but a prelude to what 
will unfold in the future. Proper computerization of 
typesetting now offers very significant cost advantages 
over hot metal .... 
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A technology (that of computers) and a technological 
art (that of typesetting) are being blended together in 
a way that is particularly challenging to the computer 
technology since the typesetting art must be maintained. 
The computer must assist the art--not dictate or attempt 
to eliminate it. 



When two disciplines come together there is always a 
need for good communications and standardizations -- 
standardization not in terms of the art or express! onr 
but in terms of electronic techniques. The development 
of these standards allows an orderly application of com- 
puter technology ana will not detract even minutely from 
the needs of the art and free expression. 



The computer technology will not replace creative 
human expression but will enable that expression to have 
enlarged horizons^ and leave the mundane and repetitious 
to the computer. [Pef. 3^ o. viil 



0. EVOLUTION 



In add 1 t 1 on f 
si fi cation which 
s i on of mac h i nes 



Mr. Berg also mentions a "generation” clas- 
was ceveloped to create a rational subdivi- 
into classes as follows: 



1. First Generation. Machines evolved from their hot 
metal ancestors but adapted to the photographic pro- 
c es s . 



2. Second Generation. Machines not evolved from previ- 
ous concepts embodied in hot metal machines but based 
on the new technology of setting type from photographic 
masters. 

\ 

3. Third Generation. Machines designed to work in con- 
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junction with comouters at high soeed ( greater than 
100 characters oer second ) and exoose the character 
image via a cathode ray tube (CRT). 

Since the early experiments with computerized typeset- 
tingf the computer has played a more and more important part 
in the process. The main direction of this paper has been 
to provide these "third generation'* machines with a large 
collection of tyoe styles in a variety of sizes. One of the 
largest data bases available was that digitized by Allen V. 
Hershey in 1967, Howeverr this data was available only in 
vector form and current graphics display processors and 
typesetters usually require information for their character 
displays to be in dot matrix rather than in vector form. 

The first step in the conversion process involved ob- 
taining the raw data base^ and then converting into a form 
that was usable for generating the appropriate vectors. 
This process is described in Appendix C. An interesting 
by-product of these initial efforts was the program written 
for use on the TEKTRONIX 40ia display processor and 
described in Appendix D. This program allowed the user to 
select a particular font and then to draw a character from 
that font on the CRT; the appearance of the characters al- 
lowed the verification of the vector data baser and provided 
a check on procedures used to that point. 

After the data base was confirmedr the next step was the 



conversion of the vector data into bit patterns that would 



allow the use of these fonts in a dot matrix environment on 



raster scan CRTs. The goal was to produce a program that 
could convert a standard size vector definition of a charac- 
ter into a dot matrix definition in the size desired by the 
user. Anyone using this Program gained access to the 
Hershey data base anc increased the character set available 
for his use by a significant amount. 

The next sections Provide the background on some early 
experiences with computerized typesetting and on some 
current methods used by "third generation" machines. 

C. FONT FUNDAMENTALS 

A font is a collection of different characters* all of 
the same style and height* which are mapped onto a character 
set. On the POP-11/50* the 7-bit ASCII set of 128 character 
codes is used. Some fonts have generic names* such as the 
Bodoni fonts? others have lost their origins but are named 
for their appearance* like the Gothic English fonts. Some 
fonts are recent creations* and have received more mundane 
names* SAILIO* for example* is a 10 point font created at 
the Stanford Artificial Intelligence Laboratory (SAIL). The 
most useful fonts are those that contain both upper and 
lower case English letters* Araoic numerals* and a minimal 
set of punctuation marks. The more exotic fonts contain 
mathematical symbols* characters from foreign languages* 
and* occasionally* homemade symbols for very special pur- 



poses 



Some characteristics of fonts which should be mentioned 



before proceeding are: 
1, Character width 



A font is either fixed or variable width. When a 



font 


is fixed 


width/ 


each 


character/ whether it is a 


' M ’ or 


an ' i ' 


^ Will have the 


same 


widths. In a variable 


width 


f ont / 


on the 


other 


hang / 


each character may have a 


un i que 


width. 













2 , Typeface 

Fonts are generally classified by the style of the 
typeface used. Bodoni, Nonie» Comolex, Triplex^ and so on/ 
are tyoical examples of styles. 

3 . Size 

Together with tyoeface/ size makes up one of the 
most noticeable characteristics of a font/ and oroviaes one 
of the most useful methods of classification. Font size is 
most often referred to in "point" size/ a measure of the 
font's height. A point is a traditional or inter's measure/ 
and is aoproximately 1/72 inch. On the VERSATEC/ the unit 
of measure used is the pixel/ the smallest unit of resolu- 
tion possible on the machine. The picture element (pixel or 
pel) is 1/200 inch/ about four times the resolution of most 
CRTs. At 200 pixels oer inch/ point size and raster height 
may be converted using the following formula : 

raster height = (ooint size * 2.8) + 1 
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One character width of pixels represents one raster line 



holding the "Is"# which are dots which must be blacky and 
the '*0s"> which are blank spots? together these binary di- 
gits make up a horizontal slice of a character picture. The 
character's height is determined by the point size that is 
required^ and the widths are proportional to the heights. 
Appendix F contains a more complete description of font and 
character dimensions. 

^ , Style 

Fonts that use the same typeface may appear dif- 
ferent because they have been altered slightly? a standard 
font may be regular, it may be slanteo to the right (itali- 
cized), or it may be thickened (bold face). 



D.. EARLY COMPUTERIZED TYPESETTING 
1. Pho t o t ypese t t e r s 
a. Background 

Early in 1961, Michael P. Barnett, the Director 
of the Cooperative Computing Laboratory (C.C.L.) at the Mas- 
sachusetts Institute of Technology, encountered a tape- 
operated phototypesetting machine and became interested in 
the Possibility of producing operating tapes for these 
machines from the output of a digital computer. Early pro- 
gramming efforts produced some interesting results, but none 
that were especially useful. Following the award of a 
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research grant in \9b2t however# the staff at the C.C.L. was 
enlarged and a system of computer programs was completed. 
These programs were used in 1963 and 1969 to set many hun- 
dreds of pages of material for a variety of reports# papers# 
pamphlets# and other publications of interest to l^r. Barnett 
and his staff. 

b . Equ i pment 

The equipment used at the C.C.L, included an IBM 
709/90 computer with 32K of memory which produced output 
tapes for a PHOTON 5 p 0 phototypesetter. Text material was 
prepared for the comouter using a FKIDEN FLEXOk'^RITER. 

The FLEXOwPITER had a conventional keyboard and 
produced copy that had the apoearance of standard typewrit- 
ten material; the tyoe was in a single typestyle and size# 
and lines were not justified. A paper tape ounch unit was a 
part of the FLEX0li'( PITER# and striking any key on the key- 
board# whether it was a printing key or not# caused a pat- 
tern of holes to be punched in the tape and then the tape 
was automatically advanced. The paper tape was then run 
through the digital comouter to translate the 8-bit FLEXO- 
WRITER codes into bit patterns on magnetic taoes that could 
be used to control the pnototyoesetter. These input tapes 
were usually internally coded to select type fonts# tyoe 
size# and so on# in much the same way that input to current 
text processing systems or text formatters such as TPS [Ref. 
1] and NROFF [Ref. 71 is done. 



19 




' J 




The PHOTON machine operated using a glass char- 
acter disk/ a small electronic flash unit/ a lens turret and 
prism/ and a disk level selection cam. Each glass disk con- 
tained photograohic negatives of characters arranged in 
eight concentric rings of 180 uniformly spaced characters; 
the disk rotated in a vertical plane in front of the flash 
unit/ and the spindle in which the disk was mounted rested 
in a cradle which could occuoy eight parallel positions. 
Changing the position of the cradle with the cam moved the 
disk a small amount in the vertical plane/ as the ring of 
characters moved oast the flash unit/ the unit flashed at 
the appropriate character and the image of that character 
was focused onto the film passina beneath the typesetter. 
Different disks were used to provide the different type 
fonts required/ and type size was changed by rotating the 
lens turret to change the size of the lens. The film was 
then Cut into pages and printed usina standard offset print- 
ing techniques. 

c. Lessons Learnea at M.I.T. 

As oersonnel at the C.C.L. gained experience in 
computerized typesetting/ the advantages of that system be- 
came obvious. First of all/ t ape-ooe r a t ed typesetting 
machines could set computerized output more raoidly than hu- 
man operators could/ and it could be done without the inter- 
vention of keyboard operators and the inevitable human er- 
rors that occur. Computers could also sort/ update/ and 
perform other clerical operations on almost any form of in- 
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put. Computers were also used to simplify the keyboard work 
involved in setting type from a manuscriot by introducing 
typographical details and styles that did not force the key- 
board operators to attend to the smallest details as they 
had had to do when using conventional techniaues. 

2. Hot Metal Machines 

a. Backgrouno 

In the middle 1960*s> the interaction of comput- 
ers and various typesetting devices was gaining more and 
more attention in the publishing industry. Computers were 
being installed in typesetting environments for use in the 
newspaper and book oublishing industries. As early as July 
of 1963f several newspapers had begun to use computers for 
production purposes. THE WASHINGTON STAR, for example^ used 
their general purpose computer for normal hyphenation and 
justification of news copy# and also expanded its use to in- 
clude the generation of volume and production statistics and 
other accounting functions. 

b. EguiPment 

Using an IBM 1620/1 with 40K of memory and a 
1311 disk file# the WASHINGTON STAR was able to run an ap- 
plications program that accepted internally coded input and 
that could justify every typeface size and line width that 
their linecasting eguipment could produce. The computer 
stored the widths of the brass mats and the lengths of space 
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band travel? as each character was read by the computer/ its 
brass width was subtracted from the previously set line 
lenpth. This continued until the line was within justifica- 
tion range. The computer then searched to see if the next 
word space fell within range? if it did/ then the line was 
filled and sent to the appropriate punch. If the word soace 
was too long/ the computer could attempt to insert extra 
fixed space inter- or intra-word/ depending on the desired 
hyphenation freauency. 

The paper used their disk files to store both 
type sizes and widths and to store their hyphenation dic- 
tionary? when the justification routine could not work/ then 
the hyphenation routine was called. THE WASHINGTON STAR 
maintained an extensive hyphenation dictionary and a set of 
programs that attempted to hyphenate any words not located 
in the dictionary. 

c. Expansion and Development 

Because justification and hyphenation took up 
very little of the computer's time/ THE VfASHINGTON STAR also 
used their computer to provide production statistics/ to 
schedule linecaster operations/ and to gather statistics for 
editors and compositors to help them balance their presenta- 
tion of the news and to help them lay out the paper. In ad- 
dition/ they had completed the development of a program that 
enabled them to take wire service copy as input/ run it 
through the computer to store it and reprint it/ and then 



edit the computerized orint-out of the story; the stored 

\ 

version was then re-edited and sent to the linecasting 
routine. That method eliminated the need to cast a dummy 
page that would then have to be broken up and re-cast after 
editing. 



In addition to wire service editing/ THE WASH- 
INGTON STAR also used the same keyboard and computer to out- 
put phot o-comoosed display advertising using a program 
develooed by IBM and THE MIAMI HERALD. THE WASHINGTON 
star's use of their computer for "hot metal" typesetting and 
for peripheral accounting and editing tasks demonstrated an 
effective use of the eauioment available at the time. 

3. Computer Generation of Characters 

Most early uses of computers in typesetting in- 
volved computer generation of code to drive either a photo- 
typesetting machine or a "hot metal" linecaster. These 
processes generally used commands embedded within the text 
to be Drinted. These commands performed such functions as 
selecting tyoe font and size/ and positioning the characters 
on the outDut medium. In the late 1960's/ interest grew in 
increasing the capabilities of computerized typesetting/ 
there were usually severe limitations on the character sets 
available to computer output devices/ normally line 
printers/ but tyoograohers had a wide variety of type styles 
and sizes to choose from. What was needed was a system that 
would make the advantages of tyoography available to the 
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computer; such a system would combine the speed of the com- 



puter with the versatility of the linecasterf and would make 
the result available to both machines. 

In 1967/ Allen V. Hershey/ a mathematical physicist 
at the U.S. Naval /Weapons Laboratory in Dahlgren/ Virginia/ 
developed a set of 1377 occidental characters and hundreds 
of oriental characters by hand using only graph paper to as- 
sist his work (Ref. 161. He also developed FORTRAN typo- 
graphic and cartographic systems that used his character li- 
brary to compose finished pages of text/ mapS/ drawings/ and 
mathematical equations. This was one of the earliest ef- 
forts made to use the computer to take over the functions 
formerly Performed by slower mechanical devices/ so that 
both character generation and position could be handled at 
computer soeed. 

E. IMPROVED COMPUTER TECHNIQUES 
1 . In t roduc t i on 

None of the ** generations” of typesetting machines 
mentioned earlier is now totally distinct/ since even the 
simplest devices in use today may host a m i n i -c ompu t e r or a 
micro-computer. Therefore/ the general opinion is that 
machines should now be classified based on the techniques 
used to store a master character and to generate that char- 
acter for recording on the output medium. The classifica- 



tions used are: 



* Photograph i c/opt i ca 1 ( Photo/Optic ) 



* Photographic/Scanning ( Photo/Scan )• 

★ Digital/Scanning ( Digital/Scan )• 

These classifications include the various graphics display 
terminals and CRT terminals familar to most people who use, 
or who have seen computers. 

The Photo/Optic method is fairly well known; it is 
the oldest of the three and was the method used by both the 
Cooperative Computing Laboratory at . I . T . and THE WASHING- 
TON STAR in their offset printing procedures. The two 
” scanning" methods are less well known and generally consist 
of generating dots or lines on an output medium using a CRT 
or some kind of drum and liaht arrangement. The CRT is 
perhaps the most familar and its use involves generating a 
narrow beam of light and then deflecting the beam so that it 
will illuminate a very small area on the screen of the CRT. 
As some areas are "turned on" against a dark background/ the 
character or pattern desired can he displayed on the screen 
as a dot pattern, 

2. Photo/Optic Machines 

This category includes the majority of phototypeset- 
ting devices available today. Usually the master character 
is stored phot ograoh i c a 1 1 y and is then generated optically 
for recording on the output medium. Most devices store the 
master characters for various fonts in negative form/ since 
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the character must be illuminated after it has been select- 



ed. As it is illuminated/ the ootical system/ using a 
variety of lenses/ can produce the required point size and 
position the character image on the output medium. The 
disadvantage inherent in this system is the mechanical move- 
ment required to Position the characters and pages/ this 
movement is very slow when compared to the speea with which 
characters can be selected and generated/ even when the 
mechanical equipment is operating at its fastest. Even the 
character selection and generation is slow when compared 
with a fully computerized system/ since this system must 
still use some kina of mechanical apparatus to select the 
characters. 

3. Photo/Scan Machines 

These machines again store the master characters 
pho t og raph i c a 1 1 y / but they generate the selected character 
using a dot or line generating mechanism to record the char- 
acter on the output medium. These devices operate much like 
Photo/Optic devices until the output stage is reached; from 
that time on/ Photo/Optic devices treat the character as a 
unit and Photo/Scan devices treat the character as a collec- 
tion of "scan lines" which are built up to form the complet- 
ed character. 

The character is built up on the output medium using 
a series of closely spaced lines or dots which together form 
the character/ usually using a CRT and an arrangement of 
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mirrors. This speeds up the typesetting process greatly be- 
cause the characters are positioned electronically. Because 
the characters can also be sized e 1 ec t ron i c a 1 1 y / there is no 
time lost while a lens turret is moved to position a dif- 
ferent 1 ens . 

y, Oigital/Scan f'^achines 

Devices in this category store their character sets 
digitally in memory and use a dot or line generating mechan- 
ism to produce the characters on the output medium. This 
method allows the character definitions to be stored as 
binary digits in the computer's memory^ providing rapid ac- 
cess to and display of the character information; however# 
it does require a large amount of storage for each charac- 
ter. For example# as characters become more complex and/or 
larger# more information about beam positioning and switch- 
ing is required. Mr. Berg estimates that "for 100 printing 
characters at 10 point size# approximately 8000 (16 bit) 
words of storage are requ i r ed . . . . On 1 y 35 characters at 72 
point size can be stored in 8000 (16 bit) words. The pre- 
cise storage requirement is depenoent on typeface# point 
size# and character design." (Ref. 3# p. 6:10] 
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F. CURRENT CHARACTER DISPLAY TECHNIQUES 



Oiqital/Scan techniques are most familar to computer 
scientists because alphanumeric CRT terminals and most 
graphics display processors use this method of character 
generation. Both the DATAMEDIA terminals (1500,1520^2500) 
and the RAMTEK GX-lOO tRef. 9) display processor, for exam- 
ple, use a bank of ASCII characters stored digitally in 7x12 
dot matrices to generate visual displays. Characters for 
these devices all fit within a 5x7 dot matrix and the extra 
dot Dositions provide spacing between characters and between 
lines. The screen image is renewed ^0 times a second; the 
electron gun is moved across the rear of the CRT in a side- 
to-side, line by line "raster" scan, and each individual dot 
is either illuminated or skipped to provide the required 
display. Figure 1 is an example of a character represented 
digitally and suitable for use by raster scan devices. 



.00000000 

00 0 

0 0 

0 . • » • • 00 «••«•«« 

0 

..... 00 ........ 

.... 00 ......... 

. .. .0 

. . . 00 

. . .0 0 

.. 0 ...... 0 ..... 

.000000000 



FIGURE 1. Dot Matrix Representation 



Another example of a raster scan device used as a graph- 
ics disolay unit is the CO NOGRAPHIC-12 Interactive Display 
System discussed in Reference 13* This device supports a 
set of printable characters cor respondi ng to the standard 
ASCII character set; standard size characters are drawn on a 
grid measuring 22x16 raster units and situated in the lower 
left corner of a character block measuring ^0x24 raster un- 
its. The character block determines inter-column and 
inter-line spacing/ normally 85 characters per line and 38 
lines per oaqe. Figure 2 provides an example of this tech- 
nique. While the size of the characters on the screen may 
be changed/ all characters are still drawn from the standard 
size definition. 



The VECTOR GENERAL/ AGT-10/ and TEKTRONIX graphics 
display orocessors are examples of ** refresh graphics” 

machines which store character sets diaitally/ but which 





FIGURE 2. Character Block 
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operate differently from the raster scan devices to generate 
visual displays. The VECTOR GENERAL [Ref. 12] is a highly 
sophisticated machine with many interesting c apab i 1 i t i es / 
including the ability to draw curves. That capability al- 
lows the VECTOR GENERAL to store information about each 
character in its memory as a sequence of strokes which 
create character shaoes. Each character is composed from a 
set of basic image elements [Ref. 12/ p. 1-20]/ or draw fig- 
ures/ and the characters are drawn from these images as a 
series of arcs and vectors using that information. 

In addition/ the VECTOR GENERAL can display several 
fonts in four sizes? however/ the sizes are all scaled from 
the standard size character definition/ and the only fonts 
available are the standard ASCII character set and a font 
consisting largely of Greek characters ana special mathemat- 
ical symbols. 

The ADAGE display processor (AGT-10) stores and gen- 
erates its character set in a manner similar to that of the 
VECTOR GENERAL. However/ because the AGT-10 does not have 
circle and arc hardware/ all curves must be approximated by 
straight lines. 

Both of these refresh graphics processors must re-draw 
the entire screen image approximately ^0 times a second to 
prevent the image from fading or flickering. 

TEKTRONIX (Ref. lA) display terminals ( a 0 1 0 , ^ 0 1 2 / a 0 1 a ) 
are also Digital/Scan machines/ but they differ in some ways 
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from the other refresh terminals. The character set is 
stored internally in dot matrix form^ but when the charac- 
ters are drawn on the CRT by the electron gun/ the beam il- 
luminates slightly more of the screen than the precise loca- 
tion reauired. Because of that/ most characters appear as 
lines rather than as individual dots. The characters can be 
drawn in four sizes/ but each size is based on a common 
character definition which is enlarged to the size 'required; 
the beam from the electron gun is then intensified so that 
an even larger soot is illuminated on the CRT, and the char- 
acters appear to grow both larger and wider. 



26 



II 



NATURE OF THE PROBLEM 



A. COMPUTERIZED TYPESETTING AT NPS 

This thesis was undertaken as part of an effort to im- 
prove the computerizeo typesetting capabilities at the Naval 
Postgraduate School in 1976-1977. Until that time» these 
facilities had been fairly limited and were rarely used. 
The programs used were written in the programming language 
C and were designed to be run under the UNIX operating sys- 
tem on the Computer Science Department's PDP-11/50 comput- 
er. The documents set in comouter type are produced on a 
VERSATEC p 1 o t t e r /p r i n t e r . 

The original software to set type under UNIX was 
designea and written by Professor G.L. Barksaale/ Jr. and 
was based on four fixed width fonts with common dimensions. 
The information to be set in these fonts was the output from 
TROFF, a text orocessor already available under UNIX. The 
actual tyoesetting was done by another orogram/ a virtual 
typesetter. Professor Barksdale had also designed a "font 
editor" that was intended to allow a user to create new 
fonts or to modify existing fontSf in a manner similar to 
that used by most text editors. However/ this font editor 
was not aporopriate for use in the large scale digitization 
of fonts. 
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In an attempt to improve this situatioor 



^8 additional 



fonts were obtained from external sources. Thirty-four of 
these fonts were already in digitized form and as a result 
were limited in point sizes available. They also required a 
great deal of storage in that form. Because the Hershey 
fonts were available in vector form rather than dot matrix, 
they were acquired in the hooes that they could be adapted 
for use in computerized typesetting in a form that required 
less storage. The 3^ digitized fonts, for example/ required 
6^3 512-byte blocks of storage while the Hershey fonts, 
stored in vector form, required only 193 blocks. 

This thesis was directed toward finding an algorithm 
that would allow the Hershey fonts to remain in memory in 
vector form but convert them to a digitized form in any 
point size reauired by the user. 

B. INITIAL CONVERSION 

1. Original Format 

The vector definitions of the 1^ Hershey fonts were 
obtained from a tape available through the National Bureau 
of Standards [Ref. 16]. The original tape contained approx- 
imately 360K bytes of data representing 8-bit EBCDIC charac- 
ter codes. The tape contained just over ^600 card images/ 
where each card image contained a character identification 
number/ a card sequence number, and coordinate pairs. As a 
result/ the data was essentially stored as a stream of 
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numbers 



Hershey's original definitions used integers between 
-^9 and +99 to reoresent the endpoints of his vectors/ with 
a (50/00) coordinate pair representing a "lift pen" command 
and a (50/50) representing "end of character". So that all 
of the coordinate pairs would fit into four bytes/ negative 
values were subtracted from 100 and stored as two-digit 
numbers greater than 50 so that they could be differentiated 
from a positive integer. For examole/ (10/10) was stored as 
"1010" but (-10/10) was stored as "9010". 

2. Converted Format 

The initial steos reguired to read the tape/ convert 
the - records from EBCDIC to ASCII/ strip away unnecessary 
characters/ and so on/ are contained in Appendix C. Once 
the input files had been orooerly prepared/ they were put 
into a vector form which made it easier to access the vector 
definitions for a given character. A header table consist- 
ing of 256 16-bit woras was established/ each even numbered 
word from 0 to 259 corresponded to the approoriate ASCII oc- 
tal codes and contained the character width of the character 
at that code location/ while the odd numbered words con- 
tained pointers to the character definitions. 

Within the character definitions/ each coordinate 
oair was stored in a word of storage with the x-coordinate 
in the left byte and the y-cooroinate in the right byte. 
Even the (50/00) and (50/50) pairs were stored in this 
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fashion rather than as "move/draw” and "endlist" bits in the 



conventions used by some graphics display processors. Since 
each integer used by Hershey could be represented in seven 
bits» the initial inclination was to use a format with the 
x^y coordinate oairs stored in two bytesr but with six bits 
used for the integer^ one bit for the sign# and the extra 
bit used for the "move/draw” or "endlist” bits. This would 
have decreased the present storage reauirements for a font 
by approximately 25%. That method was not used# however# it 
was dec i dea that the amount of storage that would be saved 
was not worth the extra effort that would be required to 
manipulate the bits satisfactorily. In addition# the time 
would increase slightly# which is only a minor concern since 
this is usually done only once to a font# but the risk of 
introducina or failing to detect errors arising from the bit 
operations would also increase greatly. 
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Ill, DIGITIZING A HERSHEY FONT 



A, FONT FILE FORMAT 

AH digitized font files at NFS follow a modified SAIL 
format tRef, that offers several advantages in memory re- 
quirements and that is tailored to 16-bit processing. The 
NFS format is displayed in FIGURE 3 on the next cage. The 
first F56 16-bit words of each file contain a header table. 
Each of the 128 possible characters in a font has two words 

in this table which contain its character width and access- 

\ 

i ng information. Character 000 octal uses the first two 
wordSf character 001 uses the next two words/ and so on. 
This arrangement provides an easy character accessing formu- 
la: twice the character code gives the location of the first 
word of information about that character in the header 
table. For each character defined/ the first header table 
word contains the character width in the rightmost byte and 
a block counter in the leftmost byte. The maximum character 
width permitted is 255 oixels. The block counter contains a 
number between 0 and 255? it is a file offset in 512 byte 
blocks. The second word contains a byte offset/ an unsigned 
integer between 0 and 65535/ which is added to the block 
offset. 

The character definition is accessed by seeking the re- 
quired block offset/ if any/ and then seeking the byte 
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FIGURE 3* NFS Font File Format 



offset. When accessing any character# a zero width and a 
zero Dointer imply the character is not defined in the par- 
ticular font. The dynamic aspects of the pointer structure 
in the header table allow for individual character accessing 
and for font files up to aoproximately 200K in size. Howev- 
er# a limitation in the ’’seek’* system call limits the ad- 
dressable storage to approx i mat e 1 y 160K. 

This situation is ideal in a minicomputer environment 
where core is limited and where large Quantities of data re- 
side on direct access devices. The three woras following 
the header table in the font file contain information on the 
font height# on the width of the widest character in the 
font# and on the logical height of the characters. All di- 
mensions are measured in pixels. An ASCII description of 
the font begins in word 260 and continues until an end-of- 
string delimiter (*\0’) is encountered. No description is 
normally provided with any of the Hershey fonts. 



The remainder of the file is composed of the character 
definitions pointed to by the information stored in the 
header taole. Each definition follows the same format# and 
there are no requirements for definitions to begin on word 
boundaries. Each character definition is divided into two 
parts# the character dimensions and the character bit pic- 
ture# as indicated in FIGURE 
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FIGURE NFS Character Definition 
First/ there are eight bytes which hold the raster width, 
left kern, rowS”f rorr-toP (rft), and the da ta~row"COunt 
(drc). These terms are defined in Aopendix F. Next, a por- 
tion of the character picture is stored in consecutive 
bytes, raster line by raster line. Bits that are "on” (I's) 
represent soace to be inked in, and bits that are off 
(O’s) represent white space. Each character in a font is 
conceptually set in a rectangular frame which is as wide as 
the character's raster width and as high as the font s 



height/ hence/ a great many characters have blank raster 
lines close to the top and near the bottom of the frame. 
These blank raster lines are not stored in the character de- 
finition, While the rft defines the number of blank lines 
at the character top/ the drc specifies the number of non- 
blank raster lines stored in the definition, and the number 
of blank lines at the bottom is computed. 

As an example/ the orocess which "edf" would perform to 
display a character would be to access the character defini- 
tion through the header table and to read in the four char- 
acter dimensions. Now/ if/ for example/ the raster width was 
17/ then 3 bytes woulo be required to store a single raster 
line/ the third byte having its rightmost 7 bits wasted. The 
next three bytes hold the next raster line. and so on, 
"Edf” must display a number of blank lines equal to rft. It 
must then read and disolay the nonblank raster lines stored 
in the definition, and, finally, "edf" completes the picture 
by filling out the character height with blank lines. This 
process is similiar to the Stanford method. A more detailed 
explanation and some statistics can be found in Reference 6 
and Appendix A. Appendix F illustrates character dimensions 
in more detail. 
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B. THE DIGITIZATION ALGORITHM 



The digitization algorithm used was based on the stan- 
dard s 1 ope / i n t e r c ep t formula for a line^ y = m*x + b • 
After determining the logical top and bottom of a character, 
the end-points of each line in the vector definition were 
read into the program and the slope and intercept were 
determined. Then the line was scanned from top to bottom 
and from one side to the other using a ”for” loop within a 
'•for” loop. These integer values were converted to floating 
point with an assignment statement; if those values were 
within the reauired tolerance of the line being scanned, 
then that unioue bip was changed from 0 to 1. 

c. considerations 

1. Storage Requirements 

An important consideration in designina the computer 
typesetting system was the amount of storage that would be 
reauired to hold the oigitized fonts. All of the vector de- 
finitions, for example/ were in the 5-7K bytes range, the 
comparative figures in Aooendix B reveal that a 10 point di- 
gitized font requires approximately that much storage. At 
smaller point sizes less storage is reauired for digitized 
fonts than for the vectors, but as ooint sizes increase the 
storage requirements rise dramatically. 

To minimize the storage r equ i r emen t s , all programs 
designed for this system used the convention mentioned in 
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paragraph A, where only the rows actually containing data 
were stored in memory. All rows containing zeros were added 
by the various programs as they executed. This technique 
reduced the storage reQuirements significantly^ especially 
where most punctuation and lower case letters were con- 
cerned. 



In addition, only one array of 4K words was used to 
hold each character individually as it was being digitized; 
this size allowed the digitization of the largest characters 
allowed, but was considerably smaller tnan an array that 
would hold the entire font during digitization would have 
been. As one character was completed, its bit picture was 
written to the designated file and the array was zeroea out 
in preparation for the next character. After the last char- 
acter in the font had been digitized and written out, the 
blank (octal 040) was added to the font and the header table 
was written at the front of the file. This method used a 
minimum of storage, since only 519 extra bytes (used as a 
place-holder for the header table) were stored at any one 
time. 

2 . Sizing 

Every effort was made to make all necessary vari- 
ables pr opo rtional to the size of the font being digitized. 
Since Hershey's vector definitions were eguivalent to a 10 
point font, that raster height (29 pixels) was used as a 
base for determining the proportionality constant for modi- 
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fying the widths of the characters approoriately. 

Two steps were necessary to determine font and char- 
acter heights. First/ the tallest upper case letter and one 
of the lower case descenders were scanned to obtain a base 
line and a logical height for the font. Then the largest 
characters in the font were scanned to determine a constant 
which would adjust the character heights to fit the desired 
raster height. The logical height and base line were ad- 
justed by this amount/ and the program could begin the di- 
gitization process. 

3. Programming Techniques 

One important consideration was to be able to aa- 
dress locations in memory up to the maximum font size al- 
lowed. Since even a "char *ptr" declaration allowed only 
65K adoressable bytes and permitted the Possibility of the 
left~most bit being interpreted as a sign bit in arithmetic 
operations/ the address pointer was declared as a long in- 
teger. The 32 Pits were not all necessary because other 
limitations allowed the use of only 18 bits/ but it did 
prevent unusual occurrences during mathematical operations. 

Shifting operations were done in many places rather 
than a normal arithmetic operation/ especially where the 
long integer was involved/ for just that reason. Some bit 
masking was also necessary/ normally to prevent a sign bit 
from propagating across a byte. 
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Types of Lines 



After the slope of a line was determined/ the execu- 
tion flow carried the line into four possible sections of 
code. Because of the wav that the algorithm was arranged/ 
it was necessary to treat vertical lines/ horizontal lines/ 
and lines with positive or negative slopes each somewhat 
di fferent ly. 

It was difficult to arrive at a group of tolerances 
for lines with different slopes that would allow the lines 
to mesh smoothly to form a character. These tolerances were 
used to determine whether or not a particular bit in the 
character picture lay close enough to the line being digi- 
tized to be switched from 0 to 1. A step function was used 
to determine the tolerances to be used for lines with slope 
values between certain limits? as a result/ there is some 
overshoot at points where slopes change enough to P-ass from 
one set of tolerances to another. 

At first/ nearly horizontal lines near the tops and 
bottoms of curved characters (0/ Q/ C/ etc.) tended to ei- 
ther overshoot significantly or to vanish completely. Then 
horizontal and vertical lines grew out of proportion to the 
rest of the character. Some of these problems are illus- 
trated in FIGURE 5. Eventually/ the characters became more 
and more recognizable. The method used to smooth out the 
digitization involved studying the characters digitized with 
one set of tolerances with "edf"/ then graphing the charac- 
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ter from the vector definition^ deciding how much tolerance 
was required for slope values between certain limits^ and 
beginning the loop over. 
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FIGURE 5. Problems in Digitization 

Horizontal anc vertical lines tended to grow thicker 
when digitized; so their widths were reduced programmatical- 
ly by approximately half. The tolerances necessary for 
these lines were aporoximately one-half those of the tight- 
est tolerances used for slopina lines. Sloping lines had to 
be thickened by the same means; but even here there was a 
difference; lines with a slope that was very close to hor- 
izontal required an even larger assist than did other lines. 
Lines with slopes between 0.5 and -0.5 (nearly horizontal) 
required very tight tolerances to keeo them from thickening 
excessively; while lines between 0.5 and 3.0 and between 
-0.5 and -3.0 received somewhat larger tolerances. Lines 
with slopes from 3.0 to 7.0 and from -3.0 to -7.0 were 
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essentially left alone/ but lines with slopes greater than 
7,0 or less than -7.0 (nearly vertical) required very loose 
t o 1 e ranc es . 

In general/ characters such as "A", ”M", "Z”/ and 
others that were essentially composed of straight lines/ no 
matter what their slopes/ transitioned from vector to raster 
form clearly and were very clean. This resulted largely be- 
cause the same tolerance was used by the algorithm 
throughout the line and the character. In other words/ 
there were very few breaks in the continuity of the lines 
that defined the character. There were minor problems such 
as notching in the base of the "M" or in the point of the 
"A" and a thickening in the right foot of the "A" and the 
"X"; these were not immediately obvious/ especially at point 
sizes that would normally be used for tyoesetting. 

Characters such as "0"/ ”Q"/ "d"/ '*c"/ and others 
that required the use of many small lines to approximate 
curves were usually ragged in places after digitization. 
Because different tolerances were used on lines that were 
linked/ the effect was not as smooth as it was for the 
straight line characters. As a result/ characters of this 
type sometimes appear somewhat ragged/ especially at larger 
point sizes where this effect is easily discernible. 

5. Floating Point 

Floating point arithmetic was used extensively in 
the digitization process. While this made tne program 



slightly slower, it had been decided beforehand that float- 
ing point was necessary to achieve the accuracy required to 
prevent holes or extraneous lines and bits from appearing in 
the dot matrix. 

0. LIMITATIONS 

1 . Time 

One of the lesser limitations imoosed uoon the user 
in this area is the time required to Digitize a Hershey 
font. V^hile the time required sometimes seems out of pro- 
portion, especially with larger or more complex fonts, many 
of the reasons for this seeming slowness have been explained 
previously. In addition, the time required to digitize the 
largest fonts possible is still on the order of approximate- 
ly 15 minutes at the worst. The times can be improved by 
digitizing fonts at times when system usage is low, and by 
digitizing fonts only once and storing them between uses. 
This should be the normal mode of operation when using 
Her shey fonts. 

2. Appearance 

The appearance of most fonts at larger sizes has al- 
ready been discussed to some extent and a comparison of the 
Duplex Homan font at 10, 20, 30, and ^0 point sizes is 
available in Appendix R. On the whole# the program will di- 
gitize fonts fairly well up to the size limitations dis- 
cussed in the next section. Fonts with more vectors in the 
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character definition will not be as ragged as those with 
only a few lines. 

3 . Size 

An initial design decision was made to limit the 
fonts to a raster height of 255 oixelSf which is equivalent 
to 91 point. As a result/ the array declared in "makehf" to 
hold each digitized character definition as it is converted 
is designed to hold one character 255 pixels high by 255 
oixels wioe at its maximum. 

An additional constraint is imoosed by the structure 
of the font files. Because the character width and a block 
count/ if present/ each occuoy a byte/ the maximum value for 
the block counter is 255. As the block counter approaches 
that figure/ specifically at 253 blocks/ the program will 
switch modes and use the same block counter from that point 
on/ but the byte counter will be reset and will increase up 
to 65535. This will permit the user to approach 200K bytes 
for the digitization. 

The size of a character that can be edited by the 
font editor is arbitrarily set at ^2 point/ the size of the 
largest already digitized font available/ SIGN41. There- 
fore/ Hershey fonts larger than this can be created/ but 
they cannot be edited. However, they are still usable by 
"prfont" and "signmkr". 



IV. CONCLUSIONS 



A. A COMPUTERIZED TYPESETTING SYSTEM 

The initial computerized typesetting capability at NPS 
has been expanded considerably as a result of thesis efforts 
described in this oaoer ana in Reference 6, Specifically/ 
A8 variable width fonts in a variety of sizes, ana styles 
have been added. These efforts are incomplete in that a 
virtual typesetter that sets variable width fonts has not 
yet been imolemented? however/ an additional Program has 
been written which will set these fonts and which performs a 
limited number of text formatting functions. 

At the present time/ this exoanded typesetting system is 
designed to use four programs. The user has "edf" and 
"makehf" available to create or modify fonts/ and "orfont" 
and "signmkr" are available to display his efforts. The 
font editor/ "edf"/ has been expanded and modified consider- 
ably? it is documented in Appendix A. The program 
"makehf*/ which is described in the previous chapter/ was 
the end result of the author's thesis efforts and provided a 
suostantial contribution to the increased capability of the 
NPS computerized typesetting system. This program allowed 
the user to convert Hershey's vector definitions into dot 
matrix reoresent at i ons that could be used Dy the comouter? 
these definitions could be converted to a variety of sizes/ 



subject only to a few limitations 



The display routines developed for the system, "prfont" 
and "signmkr", are described in Aopendix D, together with 
the vector disolay routine "drawhf". "Prfont” is designed 
to display one font at a time by examining the header table 
and orinting all defined characters in the desired font, 
"Signmkr" is more soohisticated, and allows the user to 
specify a limited set of text processing commands to set 
type to his soecifications. 

B. advantages/disadvamtages 

1 . Advant ages 

The adaptation of the Hershey fonts for use in com- 
Duterized typesetting has improved both the Quality and the 
variety of fonts availaole for use. It is now possible for 
a user to access more elaborate fonts, or to access fonts in 
several different alphabets. These could now be used for 
special purpose applications or for accenting or highlight- 
ing standard orinting applications. 

This scheme also allows the creation of fonts at 
larger sizes than are available through the SAIL set. The 
algorithm holds uo well at large sizes for most fonts and 
leaves very few holes, especially on Triplex or Gothic fonts 
where a large number of vectors are used to make up the 
character definition. 
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For most purposes/ the Hershey fonts digitize ex- 
tremely well. There are usually only a few holes/ even at 
very large point sizes/ in most fonts. They tend to break 
up at 8 point or smaller (due to pixel size). Above 50 
point (because of line spread) some small extraneous lines 
may appear. In the range that would include most normal 
uses the digitized Hershey fonts are serviceable/ with the 
exotic fonts looking especially good. 

2 . D i sadvan t ages 

The vector digitization method has several disadvan- 
tages over and above the current lack of a virtual 
typesetter previously mentioned. First of all/ it is slow/ 
especially for larger ana/or more complex fonts. Therefore/ 
it is not suitable for on-line digitization of individual 
characters. However/ this is easily overcome by deciding 
beforehand which fonts will be reguired and then digitizing 
them before beginning the typesetting process. 

Secondly/ the algoritnm is somewhat inefficient. A 
large portion of the overhead is incurred through the use of 
floating point arithmetic and this was deemed necessary. 
However/ some time is also lost in array accessing; the 
conversion from arrays to pointers could increase the digit- 
ization speed somewhat. 

In addition/ the algorithm begins to leave holes in 
the digitization as fonts become extremely large. An excep- 
tion is the Duplex Roman font/ which begins to break up at a 



very small size because of the arrangement of its component 
vectors. In general/ this is not a significant problem with 
most fonts. 

C. PERFORMANCE EVALUATION 

1. Testing the Algorithm 

To determine which parts of the algorithm reauired 
the most execution time/ an execution profile was run on the 
program under a variety of conditions. A "monitor” system 
call was inserteo into the beginning of the digitization al- 
gorithm so that the entire program could be profiled/ and 
the program was then compiled using the shell command ”cc -c 
-f -0 -S makehf.c”/ the object file resulting from that com- 
mand was loaded using ”ld /lib/fcrtO.o makehf.o -la -Ic”. 
The ”a.out” file produced by the loaa was then used to digi- 
tize the Simplex Roman font at multiples of 10 points 
between 10 and 70 points. These profiles provided the test 
data used below; other fonts were digitized for comparison 
ourposed as noted in paragraph 3. 

2. The Execution Profile 

The execution profile revealed that one section of 
the program required/ as a minimum/ approximately 60% of the 
program execution time. This section consisted of the four 
”for” loop pairs previously described in Chapter III. These 
loops are for horizontal and vertical lines and lines with 
positive or negative slopes. The majority of the floating 
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point arithmetic was used in these loops to scan each line 
in the character defintion and to turn on the appropriate 
bits in the character picture. 



The table below can be used to compare three ouanti- 
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the slopes of the lines were different# the overall amount 
of time spent in those portions of the algorithm remained 
approximately the same. If anything# the total times for 
the digitization loops were slightly less for the more com- 
plex fonts than for the simpler fonts# however# the times in 
the "read" portions were slightly higher because more lines 
had to be read in. 

Conclusions 

From the table above and the figures# it is possible 
to arrive at two conclusions. One conclusion is that as 
the point size increases# the "real" time reauired to digi- 
tize the font also increases? this increase is non-linear 
and is very slow at lower point sizes# but begins to in- 
crease dramatically between 30 and “^0 point. This reflects 
the time that the user must wait at a terminal for his digi- 
tized font file to be created# a second time correlation# 
not quite so dramatic as the "real" time required but just 
as important# is the corresponding rise in "user" (CPU) time 
as point size increases. This indicates that larger fonts 
incur a non-linear increase in CPU time that is reflected as 
an even larger increase in "real" time. 

& second possible conclusion is that one section of 
the aldorithm contributes significantly to the time required 
for the orogram execution. The percentage of time required 
in the digitization looos was never less than 56 and seemed 
to level out at just over 80 for the larger fonts? if this 
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portion of the algorithm could be speeded up the time re- 
quired for digitization^ especially digitization of the 
larger fontSf could be improved. 

It should also be noted that as the ooint sizes grow 
larger and the percentage of time spent in the digitization 
loops increases# the relative amount of time spent in the 
"read" portion of the program decreases until it becomes in- 
consequential at the larger point sizes. Therefore# the im- 
provement of the digitization process becomes the central 
problem in making the algorithm faster. 

0. POSSIdLE IMPROVEMENTS 

1. Better Digitization 

iNhile the present digitization algorithm is fairly 
effective# it could be improved in some places. Procedures 
to eliminate extraneous bits or overshoots that extend out- 
side of the main character aefinition# or to detect and fill 
in small holes or odd bits within the character defintion# 
are possible. 

Some of the raggedness and overshooting in curved 
characters may be minimized or eliminated by changing the 
tolerance function used. If a function that allowed for 
gradual chanqes in the slope (such as a sinusoid) were used 
in place of the step function currently being used# the ap- 
proximations of curves could be improved and any remaining 
raggedness would be more difficult to see. Rather than use 
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sucn a function in the orogram itself/ the values should be 
computed once and then put into table form for program use. 

An additional alternative might be to use a means 
other than the s 1 ooe/ i nt e rcept formula for a line to control 
the digitization. Cubic solines are one possible choice? 
the use of splines should minimize round-off error/ and they 
are perhaps better suited for digitizing the curves that 
have presented the majority of problems during this 
research. Since splines provide a smoother fit over sparse 
data/ they may be ideally suited to font digitization. 

2. A Faster Algorithm 

Several means to increase the efficiency of the al- 
gorithm have already been mentioned/ including minimizing 
floating point arithmetic/ switching from arrays to 
pointers/ and so on. In addition/ since the vectors are 
read in one point (two bytes) at a time/ one "read" opera- 
tion that brought in the whole character definition would 

somewhat decrease the time required for system calls. 

/ 

The "for" loops used for digitization are arranged 
so that one goes from the logical top of the character to 
the bottom/ but the other runs from 0 to the font width. 
Since all of the font width is not usually required/ this 
inner loop could scan only the character width. 
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E. FONTS available 



1. The SAIL Fonts 

The 34 digitized fonts were acquired from the Artif- 
icial Intelligence Laboratory at Stanford University and 
were converted to a file format compatible with the PDP-11 
[Ref. 63. These fonts were either designed at Stanford or 
acquired by them through the ARPA net from other artificial 
intelligence centers. SAIL fonts use a 7-bit coae similiar 
to ASCII? however/ the SAIL set uses many of the ASCII con- 
trol codes for additional orintable characters. There are 
some additional minor differences in character usage. The 
complete SAIL character set is listed in Appendix G with a 
complete listing of all SAIL fonts converted for use at 
NPS. 



2. The Hershey Fonts 

The 14 fonts available in vector form were converted 
for NPS use from a set of fonts created by Allen V. Hershey 
in 1967 (Ref, 163, These fonts offer several type faces in 
Roman/ italic/ and script/ as well as complete alphabets in 
Greek and Cyrillic/ and in Gothic English/ German/ and 
Italian. A complete listing of the Hershey fonts is avail- 
able in Appendix E/ together with sample listings of the 
fonts in digitized form. 

The Hershey fonts are stored in vector form and are 
not suitable for use by typesetting programs until they are 
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converted to dot matrix form by the user 



This can be done 



by using either the 
or the font editor, 
size desired by the 
programs involved, 
tions are discussed 



Hershey font conversion program "makehf" 
These fonts may be digitized in any 
user# subject to some limitations on the 
The programs required and their limita- 
in Chapter III and Appendixes A and B. 
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APPENDIX A. FONT EDITOR 



A. USING THE FONT EDITOR 
1. Basic Structure 

"Edf" is an interactive program which allows a user 
to create new fonts or to moaify or maintain existing ones. 
It was originally designed by Professor Barksdale to create 
and manipulate the fixed width/ 20 x 16 pixel fonts. The 
current version of "eaf" is considerably larger than its 
predecessor/ a growth resulting from the addition of modules 
to manipulate the more complex and more dynamic format of 
the new font files. 

Creating a font may be accomplished by one of 
several means. First/ a call to "edf" with no arguments in- 
dicates that the user desires to create a font from scratch. 
The user must specify the characteristics of the new font 
and then use the "a" (ado) command to create specific char- 
acters at each character position. Repeating this process 
for 12B characters can oecome exceedingly tedious. A more 
efficient ootion is to create only a few new characters and 
to then use the "i" (include) command to include other char- 
acters from a compatible font. "Compatible"/ in this case/ 
means that both fonts have identical heights and logical 
heights and that the characters being included are no wider 



55 



than the maximum character width of >'he font being created. 
A third option^ somewhat similar to the seconds is to use 
the "d" (delete) command to remove unwanted characters from 
a selected base font. 

To edit an existing digitizeo font file» "edf" re- 
quires an argument consisting of either a font file name or 
a complete oath name. In the first case^ the font editor 
assumes that the font is located on the directory 
"/.fonts. 01/font / '* anc preoends that string to the argument 
before issuing a system call to open that file. If a com- 
plete oath name is usedf "edf" will open that font file. If 
the font file is missing or if the font file contains in- 
valid information/ then "edf" will exit with an appropriate 
error message. 



A Hershey font, digitized to any desired size and 



sub j ec t 


to the 


1 imitations 


di scussed 


later/ 


can 


also be 


created 


using the 


font editor. 


This is 


gone 


by 


cal 1 i ng 



"edf" with at least one argument. The first argument must 
be of the form "-HXY"/ where the minus sign informs the edi- 
tor that it must oigitize a Hershey font and "HXY" is a 
valid font from the list of fonts available found in Appen- 
dix E. This argument must contain tnose four characters. 
The point size desireo may be input as a second argument. 
The default point size used is 10 point/ and the editor can 
edit up to only 2 point. if'ihether the newly digitized 
Hershey font is written to another directory or not/ the 
most recently created Hershey font is normally left on 
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directory '’/.fonts. 01” and is named HFONT. 

Some examples of valid calls to "edf" are listed 

below; 

a ) edf 

This indicates that the user desires to create his own 
font. He may give it any name desired when he writes it 
out^ ending the edit session. 

b) edf SIGNai 

The user wants to edit font file SIGN^l, which had 
better exist (and SlGMill does) on directory 

"/. fonts. 0 l/font /SI GNai" . 

c) edf / u s r /doy 1 e / f on t s /H T R 

The user wants to edit an existing 
called HTK'42/ a Triplex Roman font at ^2 
"/usr/doyl e/fonts/" . 

d) edf HSR20 

The user wants to edit an existing 
called HSH20/ a Simplex Roman font at 20 
"/.fonts. 01/font/". 

e) edf -HGE 36 

The user wants to create a Hershey 
Gothic English type at 36 point. He 



Hershey font file 
point/ on directory 



Hershey font file 
point/ on directory 



font file in the 
may write it to any 
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directory after it has been digitized, 
f) edf -HCS 

The user wants to create a Hershey font file in Complex 
Script type. The point size defaults to 10 point/ ana the 
font may be written to any directory at the conclusion of 
the edit session. 

In the edit mode/ the header table/ the font dimen- 
sions/ and the font cescription/ if any/ are read into the 
program variables. When a specific character definition is 
required by the program/ the bytes containing the dot matrix 
definition of that character are read into a character 
buffer/ and blank lines are inserted at the too and bottom 
of the definition if .reauired. A character definition 
leaves the character buffer and is out on a linked list if 
it has been modified ourina the current edit session. As a 
new character definition is reauired/ it is read from either 
the font file or from the linked list if it has been changed 
previously. Cha^^acters which are not defined in the font/ 
such as the control characters below octal code 0^10 in the 
Hershey fonts/ or which are non-pr i n t ab 1 e / such as the 
blank/ are flagged ana may not be disolayed with the font 
edi tor . 



Chanaing the current character code will not cause a 
character definition to be read into the buffer unless it is 
followed by a command which reauires the definition; for ex- 
ample/ or "056" will change the current character cooe/ 
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but no definition is read into the buffer until a command 



like "1” (list) or "e" (edit) is given. 



Once a character has been modified^ its new defini- 
tion will not be read from the character buffer to the 
linked list until the current character is changed or until 
the user gives the "w" (write) command. An attempt to end 
the edit session without writing out a file containing 
changes will generate one warning. The user must scecify 
the name of the file that he is writing to. The editor will 
not allow the user to write to the same file that he is 
editing from or to write to "HFONT"; hence/ no font file is 
inadvertantly destroyed. The eaitor writes to the specified 
file/ incoroorating character definitions from the linked 
list and from the font file/ updating the header table as 
necessary. As a final gesture/ the editor writes out the 
size of the file in oecimal. Renaming the new font file or 
replacing an old file with a new one remains the responsi- 
bility of the user. 



When using "eof" it is most efficient to complete 
all desired modifications to one character before proceeding 
to another. 

2. Commands 



The basic command line 
current character selector/ 
mentS/ if any/ to the command, 
considered a pointem to a code 



consists of 
the command 
The current 
pos i t i on in 



three parts: the 
itself/ and argu- 
character may be 
a font. For exam- 
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ple» when the current character is OlOlf then any character 
listing or editing will be directed toward ’*A" which has the 
code 0101. Whenever a character oicture> or a portion 
thereof/ is displayed/ each raster line is composed of whole 
bytes. For example/ if the raster width is 17, then all 3 
bytes reguired to holo the 17 bits will be displayed. Chang- 
ing the character Picture to the right of the 17th bit is a 
superficial change, since modifications made outside the 
raster width are ignored. 

\ 

a) <number> 

Change the current character to <number>. The 
number may be octal (preceded by a zero) or decimal. Any 
number greater than 127 is converted to 0, and anything less 
than 0 is convertea to 127. Any command may appended to 
<number>. The effect is to change the current character 
first and then to execute the appended command. 

Examples: 0176, 0, 161, 78c 0 25, 16a. 
b) +1- 

Increment (decrement) the current character. Wra- 
paround occurs as in <number> above. Either <+> or <-> may 
be used but not both on the same command line. Any command 
may be appended to either, and the effect is to increment 
(decrement) the current character first and then execute the 
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command. Only one "+•" or may be used on a command line. 

Examples: +1» -r +/ +e^ +c0 ^0. 



c) (<number>] I (+] ! l-Ja 

Add a new character to the font at the current char- 
acter position. The "a" (add) command is complex. A 

"p" (parameter) commano is executed automatically. Follow the 
displayed instructions to input the dimensions of your new 
character. Remember that your new character is being defined 
at the current character. After exiting the parameter com- 
mand loop/ you may use the "c"(change)/ "e"(edit)/ 
''s'* (shift)/ or "I" (list) commands to -form the desired char- 
acter Picture. The character buffer has previously been 
zeroed. If you use <number>/ "t", or to change the 

current character before you are satisfied with the new 
character picture/ the unsatisfactory picture gets storedl 
If this happens/ list the Character and continue. 

Examples: +a/ -a/ 056a/ 19a/ a. 



d) [<number>l 1 [+1 ! [ -) c [ <numbe r > 1 [<number>J 

Change lines "s" thru ”e"/ prompting for each line, 
"c" alone sets "s" to 0 and "e" to "heiaht-l". "c" followed 
by one number sets both "s" and "e" to that number, "c" with 
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two numbers sets "s" and "e" accordingly. The numbers may be 
octal or decimal/ and a space is required between two 
numoe r s . 

Examples: +C/ -cO 10/ 077c 1 044/ c/ +c 10. 



e) d[<number>) [<number>) [font file! 

Delete characters "s” thru "e". "d” alone sets "s” 
to 0 ana "e" to 127/ effectively deleting the entire font, 
"d" with a single number deletes that character code. "d" 
with two numbers deletes "s" thru "e" inclusive. Numbers may 
be octal or decimal/ and a soace is reauired between two 
numbe r s . 

Examoles: d/ dS/ d 0176/ d 0 057. 

f) [<number>] ! t + 1 ! [ - ) e t <numbe r > ] [<number>l 

Edit lines "s" thru ”e"/ promoting for each line, 
"s" and ”e" are set as in "c" (change). While editing a line/ 
"cntl-d" completes the line as it was. This command uses 
the NPS line-editor functions in the terminal handler. 

Examoles: e/ 077e0 10/ +e 5 5/ -e/ 017e 12. 



q) 1 
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Turn on (off) a flag controlling the display of 
character dimensions. Once turned on^ character dimensions 
are displayed every time a character definition is fetched. 
Displaying is turned off by a subseauent "f". "f" may be 
prepended to anv command. 

Examoles; f, fl, +fe 0 10, 0176fl 0 10. 



h) i [<number>] [<number>| filename 

Include characters "s" thru "e" from the font file 
"filename". "s" and "e" are set as in the "d" (delete) com- 
mand. If the font file being edited or created and 
"filename" are not compatible, then the include will not oc- 
cur. SuDSeauent uses of "i" do not reguire "filename"? un- 
less, of course, you wish to include from another font file. 

Examples? i 0 057 BDJ8, i HCS20, i. 



i) (<number>]!(+]!(-)1 [<number>) (<number>) 

List lines "s" thru "e" of the current character, 
"s" and "e" are set as in "c" (change). 

Examoles: +1 0 10, -I, 1, 0761, 1 12. 
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i ) n 



Display the font description and a table reflecting 
the status of the edit session. The description tells you 
what you're editing^ if you've forgotten. The table is a 
handy way to keep track of how much you've accomplished. 

Examp let n . 



k ) o 

The "p" (parameter) commana executes an interactive 
module of "edf" which allows you to modify character and 
font dimensions and description. A set of instructions will 
be displayed and may be recalled if reouired. This module is 
Quite versat i I e . Keep in mind that character and font dimen- 
sions are being changed^ not character pictures. 

E X amp 1 e : o 



I ) q 

Quit warns you if you've made changes and have for- 
gotten to write them out? other wise» it exits/ closing any 
open f i I es . 
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Examo 1 e : q 



m) [<number>]'(+]l[-]sl|rlu!d [<number>l [<number>] 



Shift lines "s" thru "e" one pixel left(1)» 
right(r)/ ud(u)/ or down(d). The resulting lines are au- 
tomatically displayed. "s" and "e" are set as in 
"c " (change ) . 

Examples: tslO 10, O^Usu 10, sr, -sd. 



n ) w filename 

Write out the font file being edited or created to 
"filename". "w" must have a "filename" and will not allow 
you to write to the font file being edited, "w" displays the 
byte size, in decimal, of "filename" ana then performs a 
"q"(quit). Be oatientl Writing out a font file takes longer 
than writing out a normal file. 

Examples; w temp, w / . f ont s . 0 1 / f ont /HC I 20 . 



o) <rubout > I <b reak> 

Either key causes an interrupt which is trapped. 
Whatever was going on is stopped, the previous environment 
restorea (the command loop is reentered), and you may con- 
tinue. Neither key undoes anything) they merely give a 
mechanism for Killing commands without killing the program. 
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Limitations 



There are two types of limitations to "edf". Firsts 
there are some commands implemented in the original version 
which are not available in the current version. They in- 
cluded "nice to have" commands such as folding character 
pictures^ italicizing fonts/ and producing bold fonts. 
These commands were not included due to time constraints but 
could easily be added in the future. Second/ "edf" has not 
had a thorough testing. There are many checks throughout 
the program which were included to detect bad font files and 
to prevent the program from "crashing". "Edf" is good at 
screening commands ang at flagging bad ones. Although it is 
possible to string some commands together on one command 
line/ some combinations are bound to produce strange 
results. It is safe to combine commands only as described 
in the preceding section. Despite its limitations/ "edf" is 
an extremely useful tool. It was developed early in the 
thesis research and used extensively to purge and inspect 
fonts. 
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30 April 1977 



EOF 



NAME 

edf -• 


* font editor 


SYNOPSIS 

edf < 
< 


“Hershey font [point size] > I < SAIL font > ! 
Hershey font > 


DESCRIPTION 

"Edf" 

means 


is an interactive font editor that provides a 
of creating and maintaining fonts. If called 



with no arguments it will enter the "create" mode. If 
given just the font namer it will prepend 
"/.fonts. 01/font/". The editor will also accept a 
full path name. "Edf" also digitizes hershey fonts to 
a specified point size. 

Because of the size of the buffer used» "edf" can be 
used only for characters below 120 pixels ( 92 point ) 
in size. All of the digitized fonts are less than 
that size/ anc the editor will not create Hershey 
fonts over that size. 

Command Summary: 

< number > Change the current character to <number> 



^ ! - 


I nc remen t /dec remen t the current character 


a 


Add a character 


c 


C h ange a line 


d 


Delete a character or a font 


e 


Edit a line 


f 


Turn on/off character dimensions 


i 


Include a character 


1 


List the current character 


n 


Display the status of the edit session 


P 


Modify character and font dimensions 


a 


Quit/ end the edit session 


s 


Shift (1 } ! Ir] ! lu] ! [dl 



6 7 



w 

<rubout> 

<break> 



Irtrite to a file 
Reenter the command loop 
Reenter the command loop 



FILES 

/. fonts. Ol/HFOMT 
/. fonts. 01/makehf 

/. font s . 0 1 / font /<SA IL font> ! <Hershey font> 



SEE ALSO 

makeh f 



BUGS 

A call to the font editor must contain the correct 
name of the font file desired. No input checking is 
done? the only errors that will be detected are those 
that occur when trying to ooen a non-existant file. 

"Edf” tries to tell you that the Hershey Complex 
Cyrillic (HCC) font has characters at octal codes 000 
and 003, when the characters are in reality at 001 and 
ooa. 
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ed f . c 






* / 



/* 









* / 



^define error return(l); 



i n t 


readfp/ writefo? 


i n t 


Pt s i zei 




i n t 


pi d; 




i n t 


freenode# 




i n t 


i n f o n t » 




i n t 


w r f 1 ag f 




i n t 


w r » 




i n t 


max; 




i n t 


ht/ maxw/ Iht; 


i n t 


bike; char 


*by t c 


i n t 


edit; 




i n t 


delete; 




i n t 


thtf tmaxw# 


t Iht 


i nt 


dim; 




i n t 


include; 




i n t 


rw / Ik/ r f t 


• 


i n t 


bo t / by t es / 


d r c ; 


i n t 


s / e ; 




i n t 


i n ; 




i nt 


C/ peeke; 




i n t 


first/ last 


• 


i n t 


chmod; 




i n t 


*n ; 




i n t 


sgt t y 1 3 1 ; 




i n t 


savet t y ; 




i n t 


o n i n t r ( ) ; 




i n t 


*chardef/ *d; 


char 


c s t a t ; 




char 


des [80] ; 




char 


i buf (361 ; 




char 


tbuf [aoooi 


; 


i n t 


hdr [256] ; 




i n t 


f hdr [256] ; 





struct node 

1 n t code; 
char ^def; 
i n t n s i 2 e ; 
char stat; 
struct node 
> Hist (12^1 ; 



* n e X t ; 



// f i 1 e desc r i pt ors 

//Hershey font point size 

//Ch i 1 d process i a 

//ptr to next free node in llist 

//current character 

//initially^ 0, incremented on 

//any change to flag a auit without 

//writing 

//flag to turn off displaying of 

//diagnostics during file writing 

//32677 used to denote base node 

//font dimensions 

//blockrbyte counters 

//set to 1 when in edit mode 

//flag in checking for empty fontfiles 

//temp font dimensions 

//char dim diplay control switch 

//flag preventing access to llist 

//during an include command 

//character dimensions 
/ / .. 

//command arguments 

//I if current character definition is 
//in character buffer^ 0 otherwise 
//characters on the command line 
//line Ptrs in character buffer 
//I if char in buffer was modified 
//integer pointer 
/ / 0 , otherwise 
//buffer for gtty(II) 

//terminal status 
//address of interrupt trap 
//character Pointers 

//holds status of char in char buffer 
//holds font description 
//buffer for read(II) 

//character buffer 

//hdr table of edited/created font 
//temp hdr table during an include 
//a node holds info on a single 
//character storea on the llist 
//character c oae 
//ptr to char definition 
//size of new definition 
//status of modification 
//ptr to next node in llist 
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struct node *head; //otr to head of llist 

struct node *avaii; //ptr to next free node 

struct node ^current? //ptr to node found in FIND 

struct node * i nser t ( ) ; //node returned by INSERT 

char rfontfilet^Oi; //fontfile being included from 
char w f on t f i 1 e [ y 0 1 ; //file being written to 
char sfontfi le 1^0] {"/.fonts. 01/font/"}; 

//pathname header of fontfile to 
//be edited 

char h f s i ze ( 5] { " 1 0 " > ; //default ot size for Hershey font 

main(argc/argy) 

int argc; char **argv; { 

i n t i ; 

if (argc > 1) { / / a rgumen t s “>e d i t mode 

if (argv[ll(01 == {//digitize Hershey font 

if (argc == 3) {//check any ooint size 

if ((ptsize = a t o i ( a rgv (21 ) ) > ^2) { 

printf(" point size exceeds ^2"); 
ex i t ( ) ; 

} 

p = h f s i ze ; 

for(i=0;(*p++ = argvC2][i]) 1= '\0';i++); 

} 

pid = fork() ; 

if ( pid ! = 0 ) 

while ( pid != wait() ) ; 
else //create orocess to digitize Hershey font 
execl ("makehf","makehf"/argv (11 /hfsize/0); 
readfp = ooen( "/. fonts. 01/HFONT",0); 

} 

else if ( arqvCl] (0] == '/' ) {//full pathname 

readfp = open ( argv ( 1 ] » 0 ) ; 

} 

else { 

p = a rgv U ] ; 

f o r ( i = 1 6 ; ( s f on t f i 1 e ( i 1 = *o + + ) 1= *\0';i+ + ); 

readfp = ooen(sfontfile/0); 

} 

edit = 1 ; 

} 

i n i t ( ) ; 

s i gna I ( 2 / on i n t r ) ; //set interrupt trap 

while ( 1 ) { 

setexit(); 

printf("\n%3o> "finfont); 

Peeke = (peeke -- '\n') ? 0 ; peeke; 
i f (command ( ) ) { 

printf ("?\n"); 

if (peeke 1= '\n') wh i 1 e ( ( c=ge t c ( 1 ) 1= '\n') ; 

} 

> 

} 

i n i t ( ) { 
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} 



i n t i ? 

if (edit) { 

if (readfo > 0) fonthclr(); 
else ( 

printf("fontfile not foundXn''); 
e X i t ( ) ; 

} 



else {//create mode 
zhdr(hdr); 

printf("\nfont height ? ")» 

wh i 1 e ( ( h t =ge t num ( ) ) < 0 !! ht > 120) { 

peekc = 0/ printfC" height ? ")» > 

Drintf(" %d l\n",ht)/ 
peekc = 0 ; 

printf(" maxi mum character width ? "); 

whi)e((maxw=getnum()) < 0 |! maxw > 256) { 

peekc = O; orintf("Maxwidth ? "); } 

Drintf(" %d !\n''»maxw); 

Peekc = O; 

pr i nt f ( " 1 oq i c a 1 height above baseline ? "); 

whi)e((lht=getnum()) < 0 !l Iht > ht) { 

peekc = O; Drintf("lht ? "); ) 

orintf(” %d I\n'*»lht); 
peekc = 0; 

printf("Tvoe in any one-line *')» 

orintf(" font description, if des i red . \n" ) ; 

getname (des ) ; 

> 

max = 32677; wrflag = O; 

head->code = max; 

head->next = 0; chmod = 0; 

include = l; freenode = 1; 

i nf ont - 0; wr - 1; 

head = llist; avail = &llist(l); 



zhor(h) //zero a hdr table 
i n t h [ ] ; { 

register i n t i ; 
n = h ; 

for(i=0;i<256;i++) *n++; 

} 



int getc() {//return next char in command line 

if (peekc) { 
c = peekc ; 
peekc = 0; 

} 

else { 

c = qetchar(); 

if (c 1= ' ') oeekc = c; 

> 

return (c ) ; 
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fonthdrC) {//read hdr table and font dimensions 
i n t i ; char t » 
read(readfp»hdr/512) ; 
readCreadfPf&ht /2) ; 
pr i nt f ( "\nHe i gh t %c "»ht)» 

i f (ht > 120 ! ! ht < 0) { 

pr intf("too high")? exit()? ) 
read(readfp/&fnaxw»2) ; 

printfC" Maxi mum character width %d ",maxw)? 
if(maxw > 256 II maxw < 0) { 

printf("too wide")? exit()?> 
read(readfp/&1 ht /2) ? 
printfC" Logical height %d\n"»lht)? 
if(lht>ht|llht<0) { 

printf("too high")? exit()?} 
seek(readfp»518»0) ? 
p = des? t = I? 
for(i=0? t 1= ’\0'?i++) { 

read(readfo,?.t $ I ) ? 

*p++ = t? 

> 



int getnum() {//convert numeric string and rtrn value 
i n t i » b a s e ? 
i = 0? 

whileCCc = getc()) == ' * ) ; 

i f (c >= ' 0 ' c <= '9 ' ) { 

base = (c-'O') ? 10 : 8? 

Peeke = c? 

if (base == 10) while((c=getc()) >='0' c<='9') { 

peeke = 0? 

i = i*base + c - 'O'? 

} 

else wh i 1 e ( ( c =ge t c ( ) ) >='0' c<='7') { 

peeke = 0? 

i = i*base + c ~ 'O'? 

} 

peeke = c? 
ret urn ( i ) ? 

> 

else{//there was no numeric string 
peeke = 0? 

if (c == '+') return(-2); 

if (c == '-') return{-3)? 

peeke = c? //c will be orocessed later 

return(-l)? 

> 

} 

int command() { 

/* Process the command line: 
upda t e i n f on t 
check command arguments 
execute command 
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Any problems ? return a 1; otherwise^ return a 0 */ 
regi ster i , j ; 
int temo» k / hf hb/ lb; 
switch(temp = getnumC)) { 

case *■2; //increment infont 

if (chmod) putdef(); 
i n f on t + + ; 

in = 0; chmod = 0; 
break; 

case -3: //decrement infont 

if (chmod) putdefC); 
infont-*; 

in = 0; chmoc = 0; 
break; 

case -1: break; //no change 

default: //infont gets temp 

if (chmod) putdef(); 
infont = temp; 
in = 0; chmoo = 0; 
break; 

> 

if (infont < 0) infont - 127; //check for wraparound 
if (infont > 127) infont = 0; 
whi 1 e( (c = getc ())=='• ) 
switch (c) ( 

case 'a'; //ado a character 

instr(); c=getchar(); getdim(); p=tbuf; 
for(i=0;i<^000;i++) *o++ = 0 ; 

bytes = (rw%8 == 0) ? rw/8 : rw/3 + 1; 

in++; wrf1ag++; chmod++; break; 

case 'c': //change lines s thru e 

if (gc ha rde f ( read f p ) ) ( 

if (setse(ht)) error; 
sbase ( ) ; 

for(i=s; i < e;i++) 

for(j=first; j < last+first; j++) 
tbufli*bytes+j] = 0; 
for(i=s; i <=e; i++) ( 

print f("%3d ",i); 
for(j=first; j < last+first;j++) 
tbuf (i *bytes + j ) = getdef(); 

} 

in++; cstat = ’m’; 

wrflag++; chmodt+; 

} 

else error; 
break; 
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case 'd'; //delete char’s s thru e 
if (setse(128)) error; 
c s t at = ' d ' ; 

f or ( i n f ont =s ; i n f ont < = e ; i n f on t + + ) { 

if(hdr[infont*2) == 0) continue; 
hdr [ i nf ont *21 = 0; putdef(); 

> 

in = 0; wrflag++; break; 

case ’e’: //edit lines s thru e 

i f (gchardef ( readf o) ) < 

i f ( se t se ( h t ) ) error; 
sbase ( ) ; 

gt t y ( 1 / sqt t y ) ; savetty = sgttytll; 
for(i=s; i<=e;it+) { 

printf("\n%3d "»i); 
sqttyCn =! 03; s 1 1 y ( 1 » sgt t y ) ; 
for( j=fi rst; j<fi rst+last; j++) 

1 i St ( "Xc%c%c%c%c%c%c%c" ,touf(i*bytes + j]) 
sgttyCl] = savetty; st t y ( 1 » sgt t y ) ; 
orintf("\n ”); 

for(j=first; j<first+last;j++) 
t bu f ( i *by t es + j ] = getdef(); 

} in + + ; wrflag + -*-; chmod + + ; cstat = ' m ' ; 

} else error; break; 

case 'f'; //switch char dimension flag 
dim =(dim),? 0 : 1 ; 

break ; 

case 'i'; //include char's s thru e from rfontfile 
if (setse(128)) error; 
getnameCrfont fi le) ; 

ppendCrfontfi 1 e» "/.fonts. 01/font/") ; 
i f ( ( t emp = ooen ( r f on t f i 1 e / 0 ) ) < 0) { 

printf(" cannot open %s"frfontfile); error; 

} 

coy(hdrffbqr); read(temo,hdr,5l2); 
read(temp/&thtf2); read(temo/&tmaxw»2); 
read(temp,8itlht»2); 
if (reject()) { 

printfC" compatible "); 
cpy ( f hdr , hdr ) ; error; 

in = include = 0 ; 
cstat = 'i'; wr = 0; drc ~ 1; 
for(infont=s; infont<=e; infont++) { 

if ( gc h a roe f ( t emp ) ) putdef(); 
else if(drc == 0) putdef(); 

} 

close(temo); wr = l; 
for(i=0;i<s;i<- + ) { 

hdr[i*2) = fhdr(i*2l; hdr[i*2+l] = fhdr[i*2+l) 

} 

f o r ( i =e + 1 ; i < 1 28 ; i ++ ) { 



7a 



h d r ( i * 2 ) 



fhdr(i*2]; hdr[i*2+l] 



f bd r t i *2+ 1 ] 



} 

include = l; wrflag++; break; 



case '1': //list lines s thru e 

if (gc h a rde f ( r ead f D ) ) { 

if (setse(ht)) error; 
sbase() ; 



for(i=s; i <= e;i++) ( 

printf("\n%3d ”/i); 
for(j=first;j < last + first; j++) 

1 ist (''%c%cXc%c%c%c/.c%c"/ tbuf ti *bytes + jl ) 

} 



i n + + ; 



} 

else error; 
break; 



case 'n’: //display font descriotion and table 

p = des; 

if(*p == '\0') printfC'no desc r i pt i on\n" ) ; 
else for(i=0;*p i= '\0'; i++) 

putchar ( *p++) ; 
putchar('\n*); 

printfC 0 12 3 a"); 

printf(” 5 6 7''); 

for(i=0; i<128;i++) { 

i f (i%8 == 0) { 

i f (i == 0)orintf ("\n000"); 

else if (i < 0100)printf(''\n0%o”/i); 

else printfC'\n%o"/i); 

> 

ps t at ( i ) ; 

> 

printf("\n\n* ' undefined 'X' unmodified "); 
printf(”'I* included "); 
printf("'D' oeleted *M' modified"); 
break; 



case 'p*; //modify font/char dimensions 
instrC); c = getchar(); 
getdi m ( ) ; break ; 

case 'q'; //ouitz warn if not written 
if (wrflag) { 
w r f 1 ag = 0 ; 
orintf("wri te??"); 
error; 

} 

e X i t ( ) ; 



case 's'; //shift lines s thru e once 
i f (qchardef ( readf o) ) { 

oeekc=0; temp=getc(); 
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if (setse(ht)) error; 
sbase ( ) ; 

switch ( t emp ) { 

case 'r': //right 

for(i=s; i<=e; i++) { 

lb = 0; 

for(j=first; J < first+last; j++) < 

hb = 1b; D = &tbuf(i*bytes+jl; 
if (*p & 01) lb = 1; else lb = O; 

*p =>> i; 

if(hb) *p =I 0200;else *p =& 0177; 

} 

1 break; 



case //left 

for(i=s;i<=e;i++) { 

hp=o; 1b =0; 

for(j=first+last-l;j>=first;j“”) { 
p = ^tbuf[i*bytes+j]; 

i f ( ( *p&020 0 ) > > 7 ) hb = 1; else hb = O; 
*p =<< i; if(lb) *p =! 01; 1b = hb; 

1 

> break; 



case 'u': //up 

for(i=s; i<=e; i++) { 

if(i == 0) sontinue; 
for(j = first; j<first + last;j+'t-) 

tbuf((i-l)*bytes+jl = tbuffi*bytes+j] 

} 

for(j = first; J < f i rst + 1 ast ; j + + ) 
tbuf[e*bytes+j) = 0; 
break ; 



case 'o': //down 

for(i=e;i>=s;i-“) { 

if (i == ht-1 ) continue; 
for( j=fi rst; j<fi rst+last; j++) 

t bu f 1 ( i + 1 ) *by t es + j 1 = t bu f t i *by t es + j 1 

} 

for(j=first; j<first+last; j++) 
tbuf[s*bytes+j] = 0 ; 
b rea k ; 



default; error; 



} //I i St the 

for(i=s; i < = 



shift 
e; i ++) 



print f("\n%3d 
for(j=first;j 
1 i s t ( " 



If i 'i • 

f f 

< first+last 



; j + + ) 

»tbuf (i*bytes + jl ) 



in + + ; wrflag + + ; chmod + + ; cstat - ' m ' ; 
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^ else error; break; 



case 'w'; //write to wfontfile and auit 
if (chmod) outdefC); wr = O; 
getname(wfontfi 1e); 

//no writing to file being edited 
if ( cmpr (wf ont f i 1 ef sfont f i 1 e) !! 
cmpr(wfontfile»"HFONT") ) { 

printf("writing to existing file "); wr=l; error; 

} 

if((writefp=creat(wfontfilef0666)) < 0) { 

printf("file "); error; 

> 

zhdr ( f hdr ) ; 

write(writefp/fhdr,512); //write blank hdr table 

wri te(wri tefPf & ht >2) ; 

wri te(wri tefCf&maxw/2) ; 

wri te(wri tefpf&l htf2) ; 

bike = 1; byte = 6; p = des; 

for(i=0; *p 1= '\0';i++) { 

write(writefp/D++>l); bump(l); 

} 

w r i t e ( w r i t e f p » p / 1 ) ; bump(l); in = O; 
f o r ( i n f on t =0 ; infont< 128; infont+t) { 

if (hdr[infont*21 0) continue; //no char here 
else if (find(infont)) {//get it from llist 
if (cur rent ->ns i ze == 0) continue; 
fhdr (i nfont *21 = (hdr (infont*2J & 0377) J (b1 kc<<0) 
f hd r ( i n f on t *2 + 1) = byte; 

wri teCwri tefo>current”>def/Current->nsi ze ) } 
bump(current->nsi ze) ; 
free(current->def ) t 

} 

else if (edit) {//get it from file 
i = gc h a rde f ( r e ao f p ) ; 
p = t bu f ; 

fhdr(infont*2)=(hdr[infont*21&0377) I (blkc<<8) 

f hdr [ i n f ont *2 + 1 ) = byte; 

write(writefpfpf8); bumo(8); 

p =+ bytes*rft + 8; 

wri te(wri tefp/Ofbytes*drc) ; 

bump ( by t es *drc ) ; 

} 

else error; 

} 

seekCwri tefo^O/O) ; 

wri teCwri tefOf fhdrf512) ; 

delete = 1 ; 

//remove any empty fontfile 

f or ( i sO ; i <256 ; i =+ 2) if(fhdr{i] > 0) delete = 0; 
if ( de 1 e t e ) { b 1 k c - byte = 0; un 1 i nk ( w f on t f i 1 e ) ; } 
print f("%l\n'',blkc*512 + bytc); 
e X i t ( ) ; 
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case ' \n ' : 



break ; 



/ / sync 



default: 

pr i nt f ( " Xc 
error? 



H 



c ) ; 



> 

return ( 0 ) ; 



bump(i) //running count wfontfile size 
//in blocks and bytes 
inti? { 

if (bytc+i >= 512) { 

if ((bike + (bytc+i )/512) < 255) ( 

bike =+ ( by t c + i ) /5 1 2 ; 
byte = ( b y t c + i ) %5 1 2 ; 

} 

else if (bytc+i > 32768) ( 

printf("file too bio'*)? exit()? 

} 

else byte =+ i ? 

> 

else byte =+ i ? 



int ernpr (p 1 » p2) //rtn 1 if pi 1= p 2? otherwisef 0 
char *pl , *p2; ( 

f o r ( ? ; ) ( 

if (*pl i= *p2++) return(O); 
if (*d1++ == '\0') return(l)? 

} 



cpy(nl/n2) //copy pl to d 2 
int +nlf*n2? ( 

int i ? 

for(i=0?i<256?i++) *n2++ = *nl++? 



ppend(pl»p2) //preoend d2 to d1 
char ol (] , p2 (] ; { 

Char *b 1 / *b2/ t [^01 ? 

bl = oi; b2 = t; 

while((*b2++ = *bl++) 1= '\0') ? 

b2 = p2? bl = pl; 
while((*bl++ = *d2++) i= '\0') ? 
b2 = t ; b 1 ; 

while((*bl++ = *b2++) 1= '\0') ? 

> 

int reject() ( //rtn 1 if files are incomDatible?ow/' 0 
if(tht 1= ht !! tlht != Iht I! tmaxw > maxw) return(l) 
else return(O); 

} 
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onintrC) { //restore environ, reset int trap 
signal (2,onintr); 
if (savetty) { 

sgttyCl] = savetty? 
savetty = 0; 
stty(l/sgtty); 
savetty = 0? 

> 

reset ()? 



int gchardef(fp) 

/* Get the character definition for the current 
character/ out it in the char buffer, expand 
blank rows, and display necessary diagnostics */ 
int f p ? ( 

reg i s t e r i , j ? 
register char *to? 

if (in) return(l); //it's already there, rtn 1 
if ( f i nd ( i n f on t ) ?>& include) ( //it's on the llist 
if (current->stat == 'd') < 

printf("Oeleted ")? 
return(O); 

) 

tp'= tbuf? 

chardef = c u r ren t ”>de f ? 

*tp++ = rw = *chardef++? rw 0377? 
rw =! (*tp++ = *chardef++) << B? 

if (rw<=0) { 

printf("%o raster width %d ",infont,rw); return(O) 

} 

bytes = (rw%8 == 0) ? rw/8 : rw/8 +1? 

*tp++ = Ik = *charaef++? Ik =& 0377? 

Ik =} (*tp+f ~ *chardef+f) << 8? 

*tp++ = rft = *chardef++? rft =& 0377; 
rft =! (*tp++ = *chardef++) << 8; 

*to + + = drc = *chardef + + ; drc =8. 0377; 
drc =} (*to++ = *chardef++) << 8; 

if(drc == 0) { 

printf(" printable "); 
return(O); 

} 

bot = ht - (drc + rft)? 
for(i=0? i < rft? i++) 



for(j=0; j < 


bytes? 


j+ + ) 




0? 


f or ( i =0 ? i < drc 


; i t + ) 








for(j=0? j < 


bytes? 


jf + ) 


★tP++ = 


♦chardef+f 


for(i=0; i < bot 


; i t + ) 








f 0 r ( j = 0 ; j < 


bytes; 


j + + ) 


* t 0 + + = 


o; 



if (wr 8rii dim) pchardim()? 
ret u rn ( 1 ) ; 



) 

//get it from the file 
if (hdr(infont*21 == 0) { 

or intf('* undefined ")? return(O)? 
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} 



} 

if ((j= (hdr[infont*2] & 0177^00) >> 8) 1= 0) { 

j 0377; 
seek(fD/jf3); 

seek(fD/hdrtinfont*2i-l] , \ ) } 



> 

else seek(fp/hdr[infont*2+n /O); 

read(fp»8rrwf2); 

if (rw<=0) { 

printfC'Xo raster width %d " » i n f on t , r w ) ; return(O) 

} 

read(fp»8f1k/2); 
read(fp»&rft/2); 
read ( f p / &drc ^ 2) ; 
if(Orc==0&&wr) { 

printf(” printable "); 
return(O) ; 



} 



dot = ht "(drc + rft); 

bytes = (rw%6 == 0) ? rw/8 : rw/8 + l; 

tp = tbuf; 

*tp++ - rw % 0377; 

*tp++ = (rw & 0177a00) >> 8; 

*tp++ = Ik & 0377; *tP++ = (Ik & 0177a00) >> 8; 

★tp+f = rft & 0377; *tpt+ = (rft & 0177400) >> 8; 
*tp++ = drc & 0377; *tp++ = (drc & 0177400) >> 8; 
for(i=0; i < rft; i++) 

for(j=0; j < bytes; j++) *tp++ = O; 

f or ( i =0 ; i < drc ; i ++ ) ( 

read(fp/ibuf» bytes); 

for(j=0; j < bytes; j++) *tp+f = ibuf(jJ; 

} 



for(i=0; i < bot; i++) 

for(j = 0; j < bytes; j+ + ) *tpt-+ = O; 
if (wr Si dim) pchardim(); 
return(l); 



int setse(x) //set command arcs s and e 
i n t X ; { 

peekc = O; 
s = getnum(); 
i f ( s < 0 ) { 

s = 0 ; e = X - 1 ; 
ret u rn ( 0 ) ; 

} 

e = getnum ( ) ; 
if (e<0) e=s; 
if (e < s ) error ; 

if((s >= X 1 I e >= x) && X == 128) error; 
if((s > X I! e > x) S& X == ht) error; 
ret urn ( 0 ) ; 



} 



list(fmtfbyt) 
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//list byte/ bit by hit/ 0=>*.'/ 1=>'0' 

char *fmt/ byt/ { 

printf(fmt/0200&byt?’0’;’.’/0100&byt?*0’:’.’/ 

OOao&bvt? ' 0 ’ ; • . • / 0020&by t? ’ O';'.'/ 

0010&byt?'0';'.'/000a(ibyt?'0';'.'/ 
0002&byt? ' 0 000 l&byt? ' 0 ; 



i nt f i nd ( i ) 

//if current character is on llist/ rtn 1 and 
//current points to correct node? ow/ rtn 0 
inti/ { 

register struct node *otr? 
pt r = head ; 

while (i > ptr->coce ) 
ptr = Dtr->next/ 
if (i == otr->code) ( 
current = ptr; 
return(l)/ 

} 

else return(O); 



getnaaie( fi le) 

//get name ending in '\0' and stick it in file 
char filef]/ { 

while((c = getc()) == ' ') ; 

i f (c 1= ' \n ' ) { 

o = file/ 
do { 

*p + f = c ; peekc = 0 / 

} whi 1 e( (c = getc ( ) ) 1= ' \n ' ) ; 

*p = '\0'; 

} 



pu t de f ( ) { 

//put definition in char buffer on llist 

if ( f i nd ( i n f on t ) ) 1 node ( c u r r en t / i n f on t ) ; 

else { 

lnode(insert(avai 1 /infont)/ infont)/ 
if (freenode > 128) { 

printfC" overflow"); exitC); 

> 

avail = X 1 1 i St C + + f reenodel / 

} 

> 

lnode(ptr/k) //do the work for PUTDEF 
struct node *ptr; int k; { 
register int i/j/reqister char *tp/ 
int clear; 
pt r->code = k ! 
if (cstat == 'd') { 

ot r->st at = cstat; 
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return; 

} //count blank rows at too and bottom 
rft = bot = 0; 
i = 0 ; clear = 1 ; 
while(i < ht && clear) { 

for(j=8; j < bytes + 8; j++) 

if (tbuf[i*bytesfj) 1= 0) clear = '\0'; 

if (clear) rft = i+l; 
i + + ; 

> 

i f ( i < ht ) { 

i = ht*l/ clear = 1; 

whileCi > 0 && clear) ( 

for(j=8; j < bytes + 8; jf+) 

if (tbuf(i*bytes+jl 1= 0) clear = '\0'; 
if (clear) hot = ht-i; 
i — ; 

} 

) 

arc - (arc) ? ht -(rft+bot) : O; 

if(drc == 0) rft = Ik = 0; 

tp = ptr->def = a 1 1 oc ( by t es *d rc + 8 ) ; 

*tp + + = rw & 0377; *to + + = ( rw 8. 0177^00) >> 8; 
*tp-H- = Ik & 0377; *tP + + = (Ik 8. 0177H00) >> 8; 
*tp + + - rft i 0377; *tpt+ = (rft & 0177^*00) >> 8; 
*tp + f = drc & 0377; *tp + + = (drc & 0177^J00) >> 6; 
for(i=rft; i < rft+orc;i++) ( 
for(j=8; j < bytes t 8; jtt) 

*tp++ = tbuf[i*bytes+jl; 

} 

ptr->nsize = 8+drc*bytes; 
pt r->stat = cstat ; 



struct node *insert(afi) 

//rtn a node for PUTDEF to use 
struct node *a; int i; ( 
register struct noce *otrf*temp; 
temp = ptr = head; 
while( i > otr->code ) { 

t emp = ptr; 

Ptr = Pt r->nex t ; 

> 

if (ptr == head ) ( 

a->next = head; 
head = a; 

} 

else { 

a->next = temp->next; 
temp->next = a; 

} 

a->stat = a">def = a->nsize = 0; 
return(a) ; 
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sbase() { //set horizontal starting ooint for char def 
first = S! last = bytes? //normal char> default 
if (bytes > 9) { //too wide> get a starting pt 

printf("\ntoo wide. ..starting where ?")? 
oeekc = 0; 

while((last = getnumC)) <01! last >= rw) { 

peekc = 0; printfC” where ?"); ^ 

oeekc = 0; 

last = (last == 0) ? 1 ; last/8 t i; 

first = first + last~l? 

last = ((bytes+8“first) > 9) ? 9 : bytes+8-first? 

> 

} 

getdef() ( //get one byte of a definition 
int mask,i/j; 
peekc = O; 

while((c = getc()) != 'O' && c 1= '.') ; 

peekc = c? 

i = j = o; 

mask - 0900? 

while((j++ < 8) && ((c=getcO) == 'O' !! c == { 

oeekc = 0? 

if ((mask = mask>>!) && c == '0') 

i = ! mask ; 

> 

re t u rn ( i ) ? 



ostat(i) //orint char status for edit table 
inti? { 
i f (f ind(i )) { 

s w i t c h ( c u r r en t ”>s t a t ) ( 



case 


'd' 


: o r i n t f ( " 


0 


" ) ? b r e a k 


case 


' i ' 


: or i nt f ( " 


I 


" ) ? b r e a k 


case 


'm' 


: o r i n t f ( " 


M 


" ) ? b r e a k 



> 

> 

else if (hdr(i*2] == 0) or intf(" ")? 

el se print f C X ")? 



ochardim() { //display char dimensions 
int i ? 

if((i = hdr(infont*2J & 0377) == 0) ( 

orintf(" undefined")? return? 

> 

printf("rw %d cw %d "/rw/i)? 

if (rw == i) orintf("lk %d rk %d"/lkflk)? 

else if (Ik) { 

if (Ik+i == rw)pri nt f ( " 1 k %d rk %d",|k,0)? 
else printf("lk %d rk %d"flk,rw -i-lk)? 
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else orintf(”1k %d rk %d"/1k/rw-i); 
print fC ht %d Iht %d "/ht/lht); 
printfC'Vft %d drc %d\n"/rftfdrc)/ 



getdi m ( ) { 

/* Look for a number and/or name. Take both as 
a request/ rejecting invalid requests with a '?' 

Quit on 't' and return to the main command loop */ 
int i/j/ font; char name(20l; 
j = hd r ( i n f on t *2) &0 3 7 7 ; font = 0; 
while ( 1 ) { 

peekc = 0; pr i nt f ( "\n%3o~> "/infont); 
i = qetnum(); get name ( name ) / 
if(cmor(name/"t")) break; 
if(cmpr(name/"i")) instr(); 
else ifCcmorCname/'* infont ”)) { 

infont = i; i = gc h a rde f ( read f p ) ; 

> else i f ( cmp r ( name / '' d" ) ) { 

printf("%s\n"/des); 
peekc = 0; get name (des ) ; 

> else i f ( cmp r ( name /" p" ) ) PchardimC); 
else if(cmpr(name/"f")) 

printf("ht %o maxw %d Iht %d\n"/ht/maxw/1ht)/ 
else if(cmpr(name/"ht")) { 

if(i >= 1ht){ ht = i; wrf1aq++; > 
else printf("\n? "); 

> else if(cmpr(name/"1ht")) { 

if(i <= ht){ Iht = i; wrf1ag+t; > 
else orintf("\n? "); 

> else if(cmpr(name/"maxw")) { 

if(i < 0 I'l i > 256) {maxw = i; wrflag + + ; } 

else printf("\n? "); 

> else i f ( c mo r ( name / " c w " ) ) { 

i f (gc h a rde f ( r ead f o ) ) { 

i f ( i <= rw ) { 

hd r [ i n f on t *2) 0177^00; 

hdr ( i nf ont *21 =1 i & 0377; 

Ik = rw-i; font = l; 

> else printf("\n? "); 

> else printf(" cw now %d\n " / ( hdr ( i n f ont 1 = i ) ) ; 

> else if(cmor(name/"rw")) { 

if ( gc h a rde f ( read f o ) ) { 

if(i <= maxw) { 

rw = i; font = l; 
i f ( rw < j ) { 

hdr ( i nfont *2) =8, 0177400,* 

hdr ( i n f on t *21 =! i i 0377; 

Ik - 0; font = i; 

> 

} else orintf("\n? "); 

1 else orintfC" rw now %d\n",(rw = i)); 

> else i f ( cmpr ( n ame / " 1 k " ) ) { 

i f ( gc h a rde f ( r ead f o ) ) { 

i f ( rw == j ) { 



84 



if(i == 0) {Ik = i; font = 1; > 

else orintfC'Nn? ”); 

} else if(i <= rw-j) { Ik = i; font = l; > 
else printf("\n? "); 

} else printfC Ik now %d\n",(lk = i)); 

> else i f ( cmp r ( name f " rk *' ) ) { 

i f ( PC ha rde f ( read f p ) ) { 

i f ( rw == j ) < 

if (i == 0) ; else printfC "\n? "); 

} else i f ( i <= rw- j ) { 

if(i+1k == rw-j) ; 
else ( Ik = rw-i; font = 1; } 

} else printf("\n? 

> else orintf("\n? ")/ 

> else printfC "\n? ")) 

} 

if Cfont) { 

w r f I ag+ + / c s t a t = ' m ' ; put de f C ) » i n = 0/ 

> 



instrC) { //display instructions for GETDIM 
printfC "Modifiable FONT dimensions are:\n")» 
printfC"height- 'ht' max character width- 'maxw'"); 
printfC" logical height- 'lht'\n\n"); 
printfC "Modifiable CHARACTER dimensions areJ\n"); 
printfC"raster width- 'rw' character width- 'cw'"); 
printfC" left kern- 'Ik' right kern 'rk'\n\n"); 
printfC"Type 'i' for i n s t r uc t i on s » 'p' for ")? 

p r i n t f C " d i men s i on s of character in buffer. \n"); 
printfC "To move to another cnaracter^ update ")» 
pr intfC" 'infont'. \n"); 

printfC "\nGet font dimensions with 'f'. "); 

printfC "Modify font name with 'd'. If you're adding"); 
printfC "a\n character/ make changes in this order only;") 
printfC" 'rw'/ 'Ik' , then 'cw',\n"); 

p r i n t f C " \n Imposs i b 1 e modifications are rejected....")/ 
printfC "some example inputs might be\n"); 
printfC" ' 2.2 Iht'/ '063 infont'/ 'i'/ or '0 lk'\n\n"); 
printfC"You'll be promoted with a '->'. ")/ 
printfC "When you are finished/ type 't'... \n\n")/ 
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APPENDIX 0. VECTOP TO RASTER CONVERSION 



A. 'MAKEUP': CREATING A FONT 
1 , Basic St rue t ure 



"Makehf" is designed to convert the vector defini- 
tions of Hershey's fonts into a digitized form suitable 
for use in comouter typesetting. The digitized font file 
created matches the format used in the SAIL files and is 
compatible with the font editor. This font file format is 
described in Chapter III; Hershey font files differ slightly 
because no font description is ever generated by "makehf", 
so an extra zero byte immediately follows the three words 
containing the font height, maximum character width, and 
logical height. This zero-word tells "edf" that no descrip- 
tion is available. 



All fonts digitized from Hershey vector definitions 
are variable width fonts. The arguments used to call 
"makehf" are described in Chapter II and again in this Ap- 
pend i X . 



This program can be used in a stand-alone mode, in 
which case the digitized font file created is normally left 
on file "/. fonts. 01/HFONT" and it can then be copied to any 
other directory. The digitized font may be written directly 
to another file, as explained in the next paragraph. When 
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digitizing a font using "edf"/ "makehf" is spawned as a 
child process? the editor waits until the digitization is 
complete and then opens file " / . f on t s , 0 1 /HFONT " for reading 
and continues normally. 

An additional option has been added and is normally 
used for the digitization of fonts larger than ^42 point. 
However/ it may be used whenever the user wants the digi- 
tized file written to some location other than the default 
file. Since the file space available on the mountable file 
is limited/ the user may include a full path name as a third 
argument and indicate a specific output file as the destina- 
tion for the digitized font. This option should permit the 
user to avoid system "write” errors that might occur if the 
digitized file were larger than the space available on 
"/.fonts. 01". A point size must be included as the second 
argument when using this option/ even if the default value 
is desired. 

2. Limitations 

Because a decision was made to limit the maximum 
raster height to 255 pixels/ "makehf" will create fonts only 
UP to 91 point in size. The user should also be aware that 
font files increase in size rapidly as larger point sizes 
are reauested. The next pages/ for example/ contain the Du- 
plex Roman font digitized to 10/ 20/ 30/ and ^0 point 
sizes. This allows a comparison of the relative sizes of 
both the characters and the font files themselves. The file 
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sizes and the times reauired to create the fonts are listed 
below: 





SIZE(bytes) 




TIME 








Real 


User 


System 


HORIO 


5522 


0;a5.0 


0:22.8 


0: 19.a 


HDR20 


1521 1 


1 ; a 1 . 0 


1 : lO.a 


0:25.7 


HDR50 


31757 


3:00.0 


2:26. a 


0:28.8 


HDRaO 


53a58 


5:18.0 


a; 1 1 .6 


0 :a9.6 


The 


three times g 


i ven were 


obtained usi 


ng the 



command discussed in Reference 5. The conversion was made 
using "edf" with a "w" (write) command waiting for the edi- 
tor when it returneo from the call to "makehf”. Normally^ 
the time required to digitize a font will increase notice- 
ably as either the ooint size desired or the number of lines 
per character (the comolexity) increases. These times were 
taken early in the evening / and are somewhat faster for the 
larger fonts than a normal time during the work day would 
be. If both factors increase^ then the time required for 
digitization becomes noticeably longer. A comparison of the 
times required to digitize each of the fonts at 20 point is 
given below; 





real 


USER 


SYSTEM 


SIZE(bytes) 


HSR 


1:01.0 


0:35.8 


0:20.4 


15461 


HDR 


1 ;ai .0 


1:10.3 


0:25.3 


15211 


HCR 


1:51.0 


1 : 12. 1 


0:28.6 


18327 


HTR 


2:19.0 


1:35.1 


0:30.8 


15856 


HCI 


2:16.0 


1:20.9 


0:30.8 


18936 
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. doyle . 0 1/hf temp/HDR10 
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. doy le . 0 1/hf temp/HDR40 
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FIGURE B-1, (Continuea) 
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iliiiM 












HTI 


3:16.0 


1 :a6.6 


0:33.5 


17063 


HSS 


1:16.0 


0:aa.7 


0:22.6 


13393 


HCS 


1 ;a6.o 


1:02.5 


0 : 2 a. 2 


13173 


HSG 


1:13.0 


0:37.9 


0:21.5 


15302 


HCG 


2:13.0 


1:12.8 


0:29. a 


18086 


HGE 


3:aa.o 


1 :«7.7 


0:35.0 


16201 


HGG 


2:a2.0 


1 :5a. 7 


0:35.0 


1 7560 


HGI 


2:33.0 


1:37.1 


0:32.0 


16759 


HCC 


2:06.0 


1:28.3 


0:29.8 


19802 



"Makehf" can address up to 200K in memory^ which 
oermits the digitization o'f fonts up to approximately 91 
point in size. However/ the font output routines can ad- 
dress only 160K/ so this limits the size of a digitized font 
that can be addressed in its entirety to approximately b5 
point. Larger fonts can be digitized if only upper case 
letters/ digits/ and punctuation are desired or reauired; 
some lower case letters may be available (run "prfont" and 
see what it prints)/ but some will be unadd re s sab 1 e . 
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MAKEHF 



1 May 1<577 



MAKEHF 



NAME 

makehf -- diqitize a Hershey font from the vector 
definition 



SYNOPSIS 

makehf -HFT ( SIZE ] [ output file 1 



DESCRIPTION 

This command creates a Hershey font in the point size 
reauested by the user. SIZE is an optional parameter; 
if no SIZE option is used^ the font will be created in 
the default size -- 10 point. The maximum height al- 
lowed is 255 pixels ( 91 point ). 



A full path name may be used as a third argument to 
"makehf". This causes the program to write the digi- 
tized font to the specified output file rather than to 
the default file» "/. fonts. 01/HFONT". The use of this 
option is recommended at point sizes larger than 90-92 
point. The SIZE must be specified if this option is 
used/ even if the default size is desired. 

The font requested by HFT must come from the following 
list; 



HSR 


-- 


S i mo ) ex 


Roman 


HDR 


-- 


Duo 1 e X 


Roman 


HCR 


-- 


Complex 


Roman 


HTR 


-- 


Triplex 


Roman 


HCI 




Comp 1 ex 


1 1 a 1 i c 


HTI 


-- 


Triplex 


1 1 a 1 i c 


HSS 


-- 


S i mo 1 ex 


Script 


HCS 


-- 


Comp 1 ex 


Script 


HSG 


-- 


Simplex 


Greek 


HCG 


-- 


Complex 


Greek 


HGE 


-- 


Gothic 


English 


HGG 


-- 


Gothic 


German 


HGI 


-- 


Gothic 


1 1 a 1 i an 


HCC 


-- 


Comp 1 ex 


Cyrillic 



FILES 

/. fonts. 01/hershey/--.v 
/ . fonts . 0 1 /HFONT 



SEE also 
ed f 
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BUGS 



This program will actually convert a Hershey vector 
definition to a digitization in a stand-alone mode as 
long as the firsts thirds and fourth letters in the 
first argument are correctf i.e.^ the second character 
need not be an "H". However^ this is the same program 
called by the font editor to create a Hershey font^ 
and if the argument oassed to "edf" does not begin 
with a "-H", the editor will not work. 



\ 
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makeh f . c 



/ * 



*/ 



/ * 



*/ 



/* 



*/ 



# d e f 1 n e 


FFACTOR 


.050 


tfde fine 


SIZE 


8192 


<<de f i ne 


MODE 


0666 


« d e f i n e 


HELP 


1.75 


d e f i n e 


NOHELP 


.ao 


#de fine 


SOMEHELP 


.90 


#de fine 


DEL\/ 


.60 


d e f i n e 


DELH 


.a5 


ftde f i ne 


DOLLAR 


73 // for height 


« d e f i n e 


SLASH 


95 // also for height 


Side fine 


CAPM 


155 // capital M location 
// in directory 


»de fine 


SMALLP 


225 // small p location in 

// directory 


«de f i ne 


CAPX 


177 // cap X for Greek cha 


#de fine 


SMALLX 


291 // smal 1 X for HCG 


d e f i n e 


CAPP 


81 // cap p for HGG 


«de fine 


SMALLF 


103 // smal 1 f for HGG 


#de f i ne 


STDFONT 


29.0 //'height 


#de fine 


R 


0 


ff de f i ne 


W 


1 


float X j , 
X 1 / 

1 X / 


y i , X X f y y / 
y 1 / X r , y r / 

1 y . r X , ry / 




b / 


deltax/ xwiae 


/ y h i gh / 


true 


f test/ xconst/ 


yconst/ delx; 


i n t i / j , 


k / 


// counters for "for" loops 


f t h t / 


f t W / 


// font height/ width 


ro t r / 


Wp t r / 


// read and write pointers 


y m i n > 


yma X / 


// min & max height of font 


xm i n , 
k t r , 
by t es / 

CDt r ; 


xma X / 


// min % max widths of font 
// counter for arrays 
// byte counter 


int M(259] ; 


// array for char directory 



i n t h t s ( ^ ; 

1 ong i nt CPOS ! 

char roathU { 

"/, fonts. Ol/hershey/-”.v 

} ; 

char woat h (] { 

"/. fonts. Ol/HFONT” 

} ; 
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char 1 ep [23 , 

X naa] , Y [laa] , 

mask/ 

num 1 / num2 / 

go / flag/ ok ; 

char OMCSIZE] ; 



readch() { 

k = seek( rptr/ cptr/ 0 ) 

ktr = 0 / 
numl = num2 = 
wh i 1 6' ( ( num 1 

k = readC 



> 



0 ; 

!= 50) 
rptr/ 



// read in a char def 



I I 
f I 

1 ep 



( num2 

2 ) 



.= 50) ) { 



numl = 1 eo [ 1 3 ; 

num2 = 1 ep [ 03 / 

i f ( num 1 >50 

i f ( num2 > 50 
Xlktr3 = numl ; 
Y [ k t r 3 = num2 ; 

kt r + + ; 

} 



) numl - numl - 100 

) num 2 = num2 - 100 



// end reaoc h ( ) 



I I 
I I 



( Y [kt r3 



mi nma X ( ) { 

ktr = 0 ; 

while ( (X [ktrl 1= 50) 

if ( (X[ktr3 > xmax) 
xmax = X[ktr3 ) 
else if ( X[ktr3 < xmin 
if ( (Y(ktrl > vmax) && 
ymax = Y[ktr3 / 
else if ( Y[ktrl < vmin 
k t r + f ; 

} 

>■ // end m i nma X ( ) 



&& (X[ktr3 



) xmin 
(Y (ktrl 



!= 50) ) 

1= 50) ) 



) ymi n = Y [kt r3 



{ 



= X [ktrl 
:= 50) ) 



ma i n ( a r gc / 
i nt a rgc / 
char *argv (3 
i nt 



a rg V ) 
/ { 



i nt 



i i / j j / 




// array counters 


C/ cw/ rw/ Dtsize/ 


// 


font parameters 




trow/ Irow/ rows/ rowC/ 


ma xc w / 








// 


row DO i n t e r s 




top/ bot/ 


// 


top & bottom of 


char 


high/ 


// 


how high is the 


char ? 


1 ht / 


// 


logical height 


of char 


ma X add r / 


// 


highest addr in 


16 bits 


r em / block/ 


// 


if font > 65K 




drc / r f t ; 


// 


data row count / 






// 


rows f rom t op 




t ndr [2593 1 


// 


t emp heade r for 


output 



file 



char si ooe , posit/ 
St rt / 
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big/ 
greek / 
go t hge r ; 



// if font is > 65K 
// flag for Greek alphabet 
// flag for Gothic German 



i f ( argc >= 3 ) { 

if ( (argvI2][01 < *0') !! (argv[2J(01 

or intfC" incorrect argument"“\n'') ; 
p r i n t f ( "po i n t size not g i ven . . . \n" ) ; 
e X i t ( ) / 

} » 



else ptsize = atoiC argv[2] 

} 

else { 

Ptsize = 10 ; 

} 

rpath[19] = argvtll [21 ; 

rpathl201 = argvClJ 13] ; 

i f ( argv 11] 13] == 'G* ) { 

i f ( argv III [2] == 'G' ) { 

gothger = 1; greek = 0; 

else { greek = i; gothger 



f 



} 

o; 



} 



> 



else { greek = gothger =0; > 

ftht = ( ptsize * 2.8 ) + 1 ; 
delx = FFACTOR ; 
deltax = ftht * delx ; 
block = rem = 0 ; 
maxcw -Of 
zero = 0 / 
mask = 01 ; 

ymin = ymax = 0 ? 

for ( i = 0 ; i < 259 ; i+t ) 
t hdr ( i ] = 0 ; 

for ( i =0 ; i <SIZE } it+ ) 
DMMJ = 0 ; 



rptr = ooen( roath/ R ) ; 

i f ( a rgc == a ) < 

i f ( argv [3] 101 i= ' / ' ) { 

printf("incorrect output file name- 
printf("full path name requiredXn") 
e X i t ( ) ; 

} 

else wptr = creatC arav(3]/ MODE ); 

} 

else wptr = creatC wpath, MODE ); 
k = read( rotr/ M, 512 ) f 
i f ( k ! = 5 1 2 ) { 

printf(" incorrect read from %s"/ rpath ) 
e X i t ( ) ; 

} 

k = seek( wptr/0/0 ) ; 

k = writeC wot r / t hdr / 5 1 8 ) ; 

k = writeC wotr,& 2 ero/l ) ; 



> '9‘ ) ) { 



-\n") ; 






epos = 519 ; 

if ( ptsize >= 3fa ) { 

bloCK = CP0S>>9 & 0177777 ; 
rem = epos & 0777; 
big = 1 ; 

} 

else big = 0 ; 

// use a eaoital N' and a small p or x to find 
// the highest and lowest points in the font 

hts[2] = DOLLAR ; 
htsl3] = SLASH ; 
if ( greek ) { 

htslOl = CAPX ; 
htslll = SMALLX ; 

} 

else if ( gothqer ) { 

htslO] = CAPP ; 
htslll = SMALLF ; 

> 

else { 

hts 10] = CAPM ; 

htslll = sn>allp ; 

> 

f o r ( i = 0 ; i < a ; i + + ) { 

eotp = Ml htslil 1<<! ; 
reade h ( ) ; 

minmaxl) ; 

if ( i == 0 ) Iht = ymax / 

} 

// now use the high and low points to find 
// the mu 1 t i p 1 i e a t i on eonstants neeessary 
// to make the standard font larger or smaller 

yhigh = ymax - ymin ; 

yeonst = ftht / yhigh ; 

xeonst = ftht / STDFOM ; 

xwide = ( xmax - xmin ) * xeonst ; 

yy = (ymin * yeonst) ; 

Iht = (Iht * yeonst) - (ymin * yeonst) } 

// now walk through the direetory and eonvert 
// any non-zero entries (i.e./ eharaeters) from 
// veetor to raster in the desired pointsize 

for ( i = 0 ; i < 128 ; i ++ ) {// eontrolling loop... 

j = i < < 1 ; 

if ( Mljl 1= 0 ) ( // don't bother for nothing... 

e w = M ( ] 1 ; 

ftw = rw = ew * xeonst ; 
e P t r = M { j + 1 1 < < I ; 



97 



if ( ( r w % 


8) 


= = 0 ) 


rows = r w 


/ 8 ; 


else rows 


= (rw / 


8) + 1 ; 




ymin = ymax 




0 ; 






go = ok = 1 


f 








Mtj] = (rw 


& 


0377) : 


( b 1 oc k <<8 


& 0177a00) 


if ( big ) 




{ 






M ( j + 1 ] = 

} 

else ( 


rem ; 














M t j + 1 ] = 


epos ; 







} 

1 row = 0 ; 

trow = 0 ; 

i f ( rw > maxcw ) maxcw = rw J 
readc h ( ) ; 

m i nmax ( ) » 

top = •( (-ymin * yconst) + yy ) ; 

if ( toD<0) too=0; 
r f t = top ; 

bot = • ( (•yfT'ax * yconst) + yy ) + I ; 

if ( bot > ftht ) bot = ftht » 
drc = high = ( bot - top ) + 1 J 
ktr = 0 ; 

X 1 = X [ k t r ] } 

y 1 = - Y [ k t r ] J 

+ + k t r ; 

xr = numl = XiktrJ ; 
num2 = Yiktr] ; 
yr - -num2 J 

while ( go ) { // check each line in the character 

f 1 ag = 1 ; 

if ( numl == 50 ) {// check for "move" or end of char 

i f ( num2 == 50 ) go = 0 ; 

// that’s all for this char/ 

// go on to the next one 
else if ( num2 != 0 ) { 

oerror("bad y value for x = 50 ") ; 

break } 

> 

else { 

+ + k t r ; 

numl = X(ktr] / 
num2 = Ylktr] ; 







i f ( 


num 1 


> 50 


) numl 




numl • 


100 ; 






i f ( 


num2 


> 50 


) num2 




num2 - 


100 ; 






xl = 


numl 


/ 














yl = 


•*num2 


• 














f 1 ag 
} 


= 0 ; 












} 

else 


{ 
















i f ( 


yl 


= z y r 


) ( 


slope 


= 0 ; 


m 


o 

• 

o 

II 


> 


else 


i f 


( X r 


= = xl 


) (si 


ope = 


-1 ; 


m = - 1 


.0; > 


else 


(slope 


= l; 


m = 


( y 1 -y r ) / ( 


X 1 - X r ) ; 


} 
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XX = rw / 2.0 ; 

rx = XX + (xr * xconst) 

ry = yy f (yr * yconst) 

lx = XX + (xl * xconst) 

1y = yy + (yl * yCOnSt) 

ok = 1 ; 

rowc = t row ; 



if ( slope == 1 ) { //normal linecase 

b=ly”(m*lx); 
if ( (m >= 3.0) ! : (m <= -3.0 ) ) 

{ 

if ( (m >= 7.0) ! ! (m <= -7.0) ) 

delx = HELP * 1.50 ; 
else delx = HELP; 



} 

else i if ( (m <= .50) && (m >= -.50) ) 

delx = NOHELP ; 
e 1 se 

delx = SOMEHELP ; 

> 



if ( m > 0.0 ) { // slope is positive 

for ( ii = too ; ii <= bot+1 r i i ++ ) < 

y i = - i i ; 

if ( ( (y i >= 1 y) && (yi <= ry ) ) \\ 

((yi >= ry) && (yi <= ly) ) ) { 
true = y i ; 

for ( i j = 0 ; j j < f t w ; i j + + ) { 

X j = j j ; 

test=(m*xj ) +b/ 

if ( (test >= (true - deltax*delx)) && 
(test <= (true + de 1 t a x *de 1 x ) ) ) { 

c = j j / 8 ; 

posit=jj-(8*c)+l; 
DMtrowc+c) = DM[rowc+cl ! 

(fnask<<(8 - posit))/ 

> 

> 

> 

rowc ~ rowc + rows ; 

) 

> 

else { // slope is negative 

for ( ii = too ; ii <= bot+1 / ii++ ) ( 

y i = - i i ; 

if ( ( (yi <= 1 y) (y i >= ry) ) ! ! 

( (yi <= ry) 8,8. (yi >= ly) ) ) { 
t rue = y i ; 

for ( jj = 0; jj < ftw; jj++ ) ( 

X j = j j ; 

test=(m*xj ) +b; 

if ( (test >= (true - de 1 t a x *de 1 x ) ) 8,8, 
(test <= (true + de 1 t a x *de 1 x ) ) ){ 

c = j j / 8 ; 



posit=jj-(8*c)+l; 
DMtrowc+cl = DM[rowc+cl I 

(mask<< (8-posit)) ; 

> 

) 

> 

powc = rowc + rows ) 

> 

} 



> 

else if ( slope != 0 ) { // vertical line case 

for (ii = top; ii <= bottl; ii++ ) { 

y i = - i i ; 

if ( ( (yi < ly) 8.8. (yi > ry) ) !' 

( (yi < ry) && (yi > ly) ) ) { 
for (ij = o; jj < ftw; jj++ ) { 

X j = j i ; 

if ( (xj >= (lx - deltax*DELV )) && 

(xj <= (lx + deltax^DELV ))) { 
c = i j / 8 ; 

posit = jj - (8*c) + 1 ; 

DMtrowc + cl = DM (rowc + cl ! 

(mask<<(8 - posit)) ; 

> 

} 



rowc = rowc t rows 7 

> 

} 

else ( //horizontal linecase 



for 


( i i = too 


7 i i 




< = 


bot 1 1 ; 


i i + > 


) 


{ 


y 1 


= - 1 i 


f 
















i f 


( (yi 


< = 


( ly 




f 


del t ax *0ELH 


) ) 


8.8. 




(y i 


> = 


(ly 




- 


del tax*DELH 


) ) 


) 




for ( i j 


- 


o; 


j 


i 


< ftw; 


j i + + 


) 


{ 




X J = 


i j 


/ 
















i f ( 


( 


( X j 


> 


- 


lx) S.& 


( X j < 


= rx) 






((xj 


> 




rx) 


(x i < 


= 1 


x) 




c = 


i 


j / 


8 


f 












PCS 


i t 


= j 


i 


- 


(8 * c 


) + 1 








DM [rowc + 




cl 


= DM [ rowc + 


C ] 





(mask<<(8 - posit)) 

> 

> 

> 

rowc = rowc + rows 7 



i f ( f 1 ag ) { 

X 1 - X r 7 

yl = yr ; 

1 

i f ( qo ) { 

++ktr ; 
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num 1 = X [kt rl » 
num2 = Y [kt r J ; 

if ( numl > 50.) numl = numl - 100 » 
if ( num2 > 50 ) num2 = num2 - 100 ; 
xr - numl J 
yT = - n u m 2 ; 

> 

> 

DM[lrow+lJ = ( rw & 0177400 )>>8 ; 
DMtlrowl = rw 8, 0377 } 

0M[1row+2] = OMtlrow + 3) = 0 ; 

0M[1row+5J = ( rft & 0177400 )>>8 ; 
DM[1row+41 = rft & 0377 ; 

DM[lrow+71 = ( drc & 0177400 )>>8 ; 
DM[lrow+6] = drc 8- 0377 ; 

1 row = trow + ( high * rows ) ; 

epos = epos + 1 row ; 



// insert code to handle large fontS/ i.e./ 

// fonts that have more than 65535 bytes 
// in the character definitions. This 
// Should happen around the 40-42 point size. 



if (big) { 

block = cpos>>9 & 0177777 7 
rem = cpos S 0777 ; 
if ( block >= 253 ) { 

big = 0 ; 

CPOS = rem 7 

> 



k = write( wptr»0M,8 ) 7 

j = trow 7 

if ( high < 25 ) bytes = rows 7 

else bytes = rows * 25 7 

ktr = bytes 7 

while ( ktr >= bytes ) { 

k = write( wotr»&DM[j), bytes ) 7 

j = j + bvtes 7 
ktr = Irow - j 7 
> 

if ( k t r > 0 ) 

k = writeC wp t r / &DM [ j ] , k t r ) 7 

for ( j = 0 7 j < (lrow+ 2*rows) 7 j++ ) 

0M(j] = 0 7 



} 



> 



// wrap thinas up-- put the data for a blank in 
// the SPACE location so that it will plot on 
// the Versatec later... Then write out the 
// directory and finish up 
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for ( k = l; k < a; kft) 
thdr[k] = 0» 

Mtbaj = thdrtOJ = M[ia6] & 0377 ; 
Mtbai = M[6a] I (b1ock<<8 & 0177a00) 
1 f ( b i g ) { 

M [65] = rem ? 

> 

else M (651 = epos ; 
k = w r i t e ( wp t r / & t h d r / 8 ) ; 

M(257] = maxcw ; 

M(256] = ftht ; 

M(258J = Iht ; 

k = seek( wptr^OrO ) ; 

k = writeC wptr, &M, 518 ) ; 

> 
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APPENDIX C 



THE DATA BASE 



A. OBTAINING THE DATA BASE 

Dr. Allen V. Hershey's complete set of 1377 occidental 
characters is available in Reference 16^ where Appendix A 
contains the complete vector representation of each charac- 
ter and Appenaix B contains a drawing of each character. 
The vector representation data was also available locally on 
a tape at the Naval Postgraduate School 's W.R. Church Com- 
puter Center; that taper labeled MPS^Slr provided the data 
base for this thesis. The data was read from NPS^51 onto 
another tape so that it could be used in the PDP-11/50 en- 
vironment available in the Computer Science Department's 
computer laboratory. 

Information regarding the IBM system utility program 
lEBGENER used to reaa from NPS^Sl and to write to the tran- 
sport tape is contained in Reference 10. The information on 
either tape can be printed out for verification or other 
purposes using the TAPED UT utility described in Reference 
1 1 . 
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B. changing the environment 

Once Hershey's data was initially available on the 
PDP-llf it was still not ready for manipulation. It was 
necessary to convert the EBCDIC characters that were used on 
the IBM-360/67 to ASCII characters that could be used on the 
PDP-11; fortunately/ the "dd" shell command described in 
Reference 15 made converting the tape a fairly simple pro- 
cess. By using "dd" as follows, 

dd if = /dev/rmt5 of=digit bs = 80 cbs = 30 s'<ip = N count=M 
conv=asc i i 

where N is the number of records to skip before starting to 
copy and M is the number of records to be copied, the UNIX 
shell would read the EBCDIC taoe in logical records, i.e., 
card images. The EBCDIC characters were then converted to 
ASCII, trailing blanks were omitted and '\n' (newline) was 
appended to the line before it was sent to the output. The 
resulting file contained a series of groups of ASCII charac- 
ters; each group was no larger than 77 characters and no 
smaller than 28, and each group was ended by newline. 

The first task was to strip the groups, or records, of 
unnecessary characters; each record began with "252^" and 
could contain up to 2^1 additional characters that were not 
coordinate pairs neeced for the vector generation, but that 
were padding characters. The following program, "cnvrt.c", 
took those records ana output logical records of the form; 

CCCCSSSX1Y1X2Y2X3Y3. . .XiYi.,.XkYk\n 
where 



1 Oil 



cccc 



Hershey character number (describes font^ etc.) 



SSS = card sequence number (one card was not 

usual 1 y enough ) 

XiYi = one endpoint of a vector 
and k must be less than or equal to twelver since there was 
room for a maximum of twelve coordinate pairs on each origi- 
nal EBCDIC input card image. 
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CNVRT 



NAME 

cnvrt -- convert a taoe file for initial use 



SYNOPSIS 

< taoefile > > cnvrt > < pre-vector Hershev > 



DESCRIPTION 

After the required number of records have been read 
from the taoe containing the vector represent at i ons / 
this program is used to strio away extraneous charac- 
ters from each card image so that only character iden- 
tification numbers^ cara sequence numbers^ and the x^y 
coordinate pairs are left. This program is the first 
step in the adaptation of the Hershey fonts. 



FILES 



SEE ALSO 



BUGS 

The input and output files from this file must be re- 
directed at the terminal. The inout files are avail- 
able on taoe> as is the entire original EBCDIC taoe of 
the vector definitions. 









* 



■ u 






ill 






■-■'■.< - ; 






M 






. , s , 

- : " 












lp iii i iiii**N P g ** lfc nu ' "' -r Tpr » r „ Bpg f ii^lii 













cn V p t . c 



/* 



*/ 



/* 



*/ 



/* 



*/ 



i n t 



char 



0 i d f 


// 


0 1 d 


card id nr 




n i d / 


// 


new 


card id nr 




num 1 ^ 


// 








num2 t 


// 








ma * n r f 


// 


number of last character 


+ 1 


end f / 


// 


n i d 


of last character in 


this font 


*pt r ? 


// 


pointer for array oos 




temp [y] , 


// 


temporary holder for characters 


ho 1 d [7] , 


// 


another temporary array.. 


. 


card (801 , 


// 


array to hold card images 




nc a rd (80) , 


// 


array for ’’stripped** card 


i mages 


strip/ 


// 


f 1 99 


--to strip or not to 


strio a card 


flag/ 


// 


f 1 aq 


for outDutting characters 


go / 


// 


f 1 ag 


to stop recursion 




i / 


// 


counter for "for" loops 




n / 


// 


card 


CO 1 umn count e r . . . 




c sn / 


// 


card 


sequence number 




cha/ 


// 








c hb / 


// 








c he / 


// 


char 


variables for various ops 


c hd / 


// 








che; 


// 








/ * 






★ / 




/* PROCEDURES 


* / 




/* 






★ / 





// gets one card image (a logica' 
// record) at a time 



) 



getcardC val ) 
i nt val ; { 

char j f t ; 
i = 0 ; 

Che = 'A' ; 

strip = I ; 

while ( ( cardli] = getchar() ) 1= '\n' 

i + + ; 

t = 0 ; 

for ( i = y ; j < = i ; j + + ) { 

if ( (j = = 11) && ( (cardCjl == '}') 

(cardCjl == '0') ) ) 

if ( cardfj] == '>’ ) saveC) ; 
i f ( cardCj] == 'O' ) 

strip = compare &c a r d t j 1) / ho 1 d ) 
if ( s t r i D ) { 

for ( j = 11 ; j <=25 / j++ ) 

cha = cardljl » 
che = card[j] ; 

> 

else 

{ 



I I 

• f 
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ncard (tJ = card [ j J ; 
t + + ; 

} 

} 

else 

{ 

ncardttl = cardCjl / 
t + + ; 

} 

> 

val = conv( ncard/^ ) 7 

return( val ) 7 

> 

save( ) { 

char k 7 

for ( k = 0 ; 

ho 1 d [ k ] = 

} 

compare arre^arrh ) // compare 2 strings; 

char arreC 1/ arrht 1 ; { // return 1 if =/ 0 if 1= 

char k 7 
k = 0 ; 

while ( arretk) == arrh[kl ) { 

k ; 

if ( k == 7 ) break ; 

> 

i f ( k == 7 ) 

ret u rn ( 1 ) 7 

else 

return( 0 ) 7 



conv( arr/nr ) 
char arrt 1^ nr 7 
i n t ) t sum ; 
char c h 7 
sum = 0 ; 
for ( j =0 ; j 
c h = a r r [ j 1 
sum = sum f 
} 

ret urn ( sum ) 7 



ten( nr ) // returns 10**nr 

i n t nr 7 { 

i nt j / sum ; 
sum— 1 7 

for ( j = 0 ; j <nr 7 j^-+ ) 

sum = sum * 10 7 

return( sum ); 



// converts a string of nrs of 
// length nr to a decimal value 



<nr; j++) { 



( (ch - '0’)*ten( nr - (jtl) ) ) 7 



// holds 7 characters temporarily 

k < 7 ; kf+ ) 
card tk + 1 21 ; 
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endchC c h ) 










// 


got 


all end-points 


char c h ; 


{ 














1 n t ok ; 
















s w i t c h ( 


c h 


) 


{ 










case 


1 


J ’ : 


case 


' K ' : 


case 


•L’ 


; case ' M ' : 


case 


1 


N ' : 


case 


•0 ' : 


case 


.p. 


; case ' Q ' ; 


case 


f 


R ' : 


case 











ok = 0 ; 
break ; 
de f au 1 t : 

ok = 1 ; 

} 

returnC ok ) ; 

> 

finchC nr ) // removes filler chars 

i n t nr } < 

i n t t ; 

while ( (ncardtnrj 1= '\n') && ( go ) ) < 

go = endchC ncardCnr] ) ; 

n r + + ; 

} 

i f ( go ) { 

t = getcardC 0 ) ; 

i f ( t == nid ) go = endchC che ) J 
finchC 0 ) ; 

> 

} 



/ * * / 

/* MAIN PROGRAM */ 

/ * * / 



ma i n ( ) { 

nid = 0 ; 
maxnr = 3927 } 
endf = 3729 ; 
while ( nid < maxnr ) { 

nio = getcardC 0 ) ; 

ptr = SncardC^] ; 
csn = convC ptr, 3 ) ; 

flag = 1 ; 
go = 1 ? 

n = 7 ; 

while C ( temolO] = ncardtn] ) != '\n' ) 

forC i =1 f i <9; it+) 
temoCi] = ncardtn+il } 
n = n + 9 ; 
ptr = &t emp C2) ; 

numl = convC temp, 2 ) 7 

num2 = convC ptr, 2 ) 7 

if C Cnuml - - num2) && Cnuml -- 50) ) 

forC i =07 i <n7 i++) 

putcharC ncardCil ) 7 

putcharC '\n' ) 7 



{ 



{ 
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aooo ; 



} 



finch( n ) ; 

flag = 0 ; 

if ( nid >= endf ) nid 
} 

> 

if ( flag ) 

for(i=0;i<=n;i++) 
putcharC ncardtil ) ; 



C. VECTOR GENERATION 

Once the Hershey oata had been converted to ASCII and 
stripped of extraneous digits and characters/ it was con- 
verted to vector form using the "mkvec.c" program listed 
below. The output files from "cnvrt.c" provided the input 
to "mkvec.c"/ these files had been arranged by font with 
upper case letters/ lower case letters/ and digits and spe- 
cial characters grouped in that order. A large "if ... else 
..." statement was used to determine whether each character 
being processed was a letter or a digit or special charac- 
ter/ letters were placed into the proper position by an ar- 
ray counter/ and digits and soecial characters were run 
through a large case statement to determine their position 
in the array. Two additional large case statements were 
necessary to transliterate the 2^ Greek and the 32 Cyrillic 
letters into their English eauivelents. 

The transliterations used were taken from Reference ^ 
and are reproduced on the following oaqe. The Gothic German 
was transliterated into Enalish on a one-for-one basis# with 



the three extra lower case letters going into the octal 



a-*A b-*B G-+r D-A e-»E 1-*Z h-*H q-»0 I-*! k-»K l-*A w-*M n-*N x-»2 o-* 0 p-*n R-*P S-*2 t-*T 
U-»T F-*4’ C-»X W-»n a-*a b-*|9 g-*‘Y d-»6 e-*( z-*f h-»f) q-*0 i-*t K-»« l-»X m-*p n-»P o-*0 p-*7T 
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FIGURE C-2. Cyrillic Transliteration 



codes 0l73f 0174^ and 0175f immediately following the 
Gothic Italian was transliterated completely on a one-to-one 
b a s i s • 

This program put the digitization into the form that was 
usea for the TEKTRONIX program described in Appendix Df and 
as the data base from which the dot matrix character 



reoresen t at i ons were made 
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MKVEC 



NAME 

mkvec out a file into vector format 



SYNOPSIS 

mkvec < Hershey font > 

DESCRIPTION 

The output from "cnvrt" provides the input for this 
orogran; this orogram takes each character identifica- 
tion number, goes through each card with that charac- 
ter io, and puts each x,y coordinate pair into a 
16-bit word. The left byte receives the x coordinate 
and the right byte receives the v coordinate. 

The program also sets up a 256 word directory for each 
font. The even numbered words from 0 to 25^ 

•correspond to the ASCII codes from 0 to 0177 and con- 
tain the widths of the aoprooriate character. The odd 
numbered words contain pointers to the byte at which 
the vector definition of the character begins. This 
program's outout files provided the data base from 
which "drawhf" and "makehf" obtain their vector defin- 
itions for either display or digitization. 



FILES 

SEE ALSO 

makehf, cnvrt 

BUGS 

"mkvec" automatically writes the vector files to 
directory "/usr/dovle/hfonts.f", which might not be in 
existence at this point in time. If this program must 
be used, then a simple modification to the source code 
will write the outout to any file desired. 
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/ * 


mkvec .c 


*/ 






*/ 



#de f i ne 


SR 


0 


// 


Simplex Roman 




#de fine 


DR 


1 


// 


Dup lex Roman 




#de fine 


CR 


2 


// 


Comp lex Roman 




#de f i ne 


TR 


3 


// 


Triplex Roman 




#de f i ne 


Cl 




// 


Comp lex Italic 




^ d e f i n e 


TI 


5 


// 


Triplex Italic 




#de fine 


SS 


6 


// 


Simplex Script 




de f i ne 


CS 


7 


// 


Compl ex Script 




*(de f i ne 


SG 


8 


// 


Simplex Greek 




Ode f i ne 


CG 


9 


// 


Comp lex Greek 




Ode fine 


GE 


10 


// 


Gothic Eng 1 i sh 




Ode fine 


GG 


1 1 


// 


Gothic German 




Ode f i ne 


GI 


12 


// 


Gothic Italian 




Ode fine 


CC 


13 


// 


Comp lex C y r i 1 1 i 


c 


Ode f i ne 


NOTNUM 




”1 






Ode fine 


EOC 




031062 


// octal for " 


5050" 


Ode fine 


EOF 




99P9 


// end of font 


for M [] 


Ode fine 


ENDFONT 




9000 


// end of font 


n 


Ode f i ne 


R 


0 


// 


open a file for 


reading 


Ode f i ne 




1 


// 


open a file for 


w r i ting 


Ode f i ne 


MODE 


06aa 


// 


access to files 


created 



int M(10192) ; 

i n t o o s 1 t / 
aoos / 
num 3 f 
i dh # 
k t r / 
cw / 

X 1 r 

*pt r ; 

char card [801 , 

xyval [ia4] [21 , 

t emp ( ^ 1 / 
f 1 aq» 

C k t r , 
num 1 , 
num2 / 
c Sn ; 

Char infilet 1 { 

'V.dovle. 01/fonts/””. out" } / 

char out filet 1 { 

"/usr/doy1e/hfonts.f/””.f" } ? 

char rotr/ wotr ; 



se t c a r ( % , 
int X f y ; 



y 

{ 



) 










I 



1 



4 





M(x] = ( M[x] & 0377 ) ! ( y<<8 ) ; 

> 

setcdr ( x , y ) 
i n t X / y t { 

Mix] = ( Mix] & 0177U00 ] ! y ; 

} 

getcardl ) { 

i nt *P/ i ; 
char buf n / t ; 

1 = 0 ; 

t = readl rptr^ buff 1 ) ; 

while ( (cardli] = buflO]) 1= '\n' ) 

{ 

t = readl rptrf buff 1 ) ; 

i ++ ; 

} 

i dh = conv ( c ardf ^ ) r 
p = &cardl^l f 
csn = convl Pf3 ) ; 

} //end getcardl) 

start I ) I 
i n t i ; 

for I j =0 ; j <256 f j++ ) 

M I j ] = 0 ; 

rotr = openl infilef R ) ; 

wPtr = creatl outfilef MODE ) ; 

idh = 0 ; 
k t r = 6^ f 
c k t r = 0 ; 
flag = 1 f 
apos = 256 f 

} // end start 

resetl ) I 
i nt i f 

MIO] = Min = 0 ; 

Mlapos] = EOF ; 
for I i = 0 ; i <= apos 
wr i t e I wp t r f &M I i ] f 

] 

notnum I va 1 ) 

int val f { //is this a number or char? 

i nt ok ; 

if I Ival >= 700) && Ival <= 73^) ) 

{ 

if I val <= 715 ) ok = val - 700 ; 
else ok = va 1 ? 

} // SRf SGf SS number 

e 1 se 

if I Ival >= 2200) Ival <= 2275) ) 

I 



; i + + ) 

2 ) ; 

// end reset 
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2200 



f 



if ( val <- 2215 ) oW = val 
else ok = val ; 

} // CRf CGf Cl number 

else 

if ( (val >= 2700) && (val <= 2728) ) 
ok = val " 2700 ; 

// DR number 

else 

if ( (val >= 2750) (val <= 2778) ) 
ok = val - 2750 ? 

// CS number 

e 1 se 

if ( (val >= 3200) && (val <= 3228) ) 
ok ~ val •* 3200 } 

// T R numbe r 

else 

if ( (val >= 3250) && (val <= 3278) ) 
ok = val - 3250 ; 

/ / T I number 

else 

if ( (val >= 3700) && (val <= 3728) ) 

ok = val ~ 3700 ; 

// GEf GG> GI number 

else 

ok = NOTNUM ; 

// it's a character... 

return( ok ) ; 

> //endnotnum 



cy r ( val ) 








1 n t va 1 f { 








i n t ok ; 








s w i t c h ( 


val ) 


{ 




case 


2801 : 


// 


A 


ok 


= 65; 


break; 




case 


2802: 


// 


8 


ok 


= 6b; 


break; 




case 


2803; 


// 


V 


ok 


= 86; 


break; 




case 


2800 ; 


// 


G 


ok 


= 71; 


break; 




case 


2805: 


// 


0 


ok 


= b8; 


break; 




case 


2806: 


// 


E 


ok 


= 69; 


b r ea k ; 




case 


2807: 


// 


T 


ok 


= 90; 


break ; 
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case 


2808: 


// 


Z 


ok 


= 90 ; 


break ; 




case 


2809; 


// 


I 


ok 


= 73; 


break ; 




case 


2810; 


// 


Y 


ok 


= 89; 


b reak ; 




case 


2811; 


// 


K 


ok 


= 75; 


break; 




case 


2812; 


// 


L 


ok 


= 76; 


break; 




case 


2813; 


// 




ok 


= 77; 


b r ea k ; 




case 


28ia; 


// 


N 


ok 


II 

CD 


break; 




case 


2815; 


// 


0 


ok 


= 79; 


break; 




case 


2816: 


// 


P 


ok 


O 

00 

II 


break ; 




case 


2817: 


// 


R 


ok 


= 82; 


break; 




case 


2818; 


// 


S 


ok 


= 83; 


break; 




case 


2819; 


// 


T 


ok 


= 8a; 


break ; 




case 


2820; 


// 


U 


ok 


= 85; 


break; 




case 


2321 ; 


// 


F 


ok 


O 

II 


b r ea k ; 




case 


2822; 


// 


H 


ok 


= 72; 


break; 




case 


2823: 


// 


<- 


ok 


= 95; 


break; 




case 


282a ; 


// 


U 


ok 


= 35; 


break ; 




case 


2825; 


// 


5) 


ok 


= 6a; 


break; 




case 


2826; 


// 


& 
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ok 


= 38; 


break ; 


case 


2827: 


// • 


ok 


= 39; 


break; 


case 


2828: 


// 036 


ok 


= 30; 


break ; 


case 


2829: 


// 022 


ok 


= 18; 


break; 


case 


2830: 


// 023 


ok 


= 19; 


break; 


case 


2831 : 


// 020 


ok 


= 16; 


break ; 


case 


2832: 


// 021 


ok 


= 17; 


break; 


case 


2901 : 


// a 


ok 


= 97; 


break; 


case 


2902: 


// b 


ok 


= 98; 


break; 


case 


2903: 


// V 


ok 


= 118; 


break; 


case 


290^: 


// g 


ok 


= 103; 


break; 


case 


2905: 


// d 


ok 


= 100; 


break; 


case 


2906: 


// e 


ok 


= 1 0 1 ; 


break; 


case 


290 7: 


// 


ok 


= i; 


break; 


case 


2908 : 


// z 


ok 


= 122; 


break ; 


case 


2909: 


// i 


ok 


= 105; 


break; 


case 


2910: 


// y 


ok 


= 121; 


break; 


case 


2911: 


// k 


ok 


11 

O 


break; 


case 


2912: 


// 1 



118 



ok 


= 108; 


break; 


case 


2913: 


/ / m 


ok 


= 109; 


break; 


case 


29ia: 


/ / n 


ok 


= 110; 


break; 


case 


2915: 


// o 


ok 


= 111; 


break; 


case 


2916: 


// P 


ok 


= 112; 


break ; 


case 


2917: 


// r 


ok 


= 1 la; 


break ; 


case 


2918: 


// s 


ok 


= 115; 


break ; 


case 


2919: 


// t 


ok 


= 116; 


break ; 


case 


2920: 


// u 


ok 


= 117; 


break; 


case 


2921 : 


// f 


ok 


= 102; 


break; 


case 


2922: 


// h 


ok 


= lOa; 


break; 


case 


2923: 


// 


ok 


= 25; 


break ; 


case 


292a: 


// " 


ok 


= 3a; 


break; 


case 


2925: 


// 026 


ok 


= 22; 


break ! 


case 


2926: 


// t 


ok 


= a3; 


break ; 


case 


2927: 


// oiao 


ok 


= 96; 


break ; 


case 


2928: 


// = 


ok 


= 61 ; 


break ; 


case 


2929: 


// ooa 


ok 


= a; 


break; 



case 2930 
ok = 31 



// 037 
break ? 



case 293 1 : // < 

ok = 60 ; break ; 

case 2932 : // > 

ok = 62; break; 

> 

return ( ok ) ; 

} // end cyr 

grkchC val ) 

int val ; { // which Greek character? 

i nt ok ; 

switchC val ) { 



case 


529 


: case 


2029: 


// 


G 




ok = 


71 ; 


break ; 






case 


532 


: case 


2032; 


// 


Z 




ok = 


9o; 


break; 






case 


533 


: case 


2033: 


// 


H 




ok = 


72; 


break; 






case 


53a 


: case 


203a ; 


// 


Q 




ok = 


81 ; 


break; 






case 


536 


: ca;se 


2036: 


// 


K 




ok = 


75; 


break; 






case 


537 


: case 


2037; 


// 


L 




ok = 


76; 


break; 






case 


538 


: case 


2038: 


// 


M 




ok = 


77; 


break; 






case 


539 


: case 


2039: 


// 


M 




ok = 


78; 


break; 






case 


5ao 


: case 


20a0: 


// 


X 




ok = 


CO 

00 


break; 






case 


5a3 


: case 


20a3: 


// 


R 




ok = 


82; 


break; 






case 


5aa 


: case 


2oaa : 


// 


S 




ok = 


83; 


break ; 






case 


5a5 


; case 


20a5: 


// 


T 




ok = 


8a; 


break; 






case 


546 


: case 


2096 : 


// 


U 




ok = 


85; 


break; 
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// F 



case 5^7 
ok = 

case 5^8 
ok = 

case 549 
ok = 

case 550 
ok = 

case 629 
ok = 

case 632 
ok = 

case 633 

ok = 

case 634 
ok = 

case 636 
ok = 

case 637 
ok = 

case 638 
ok = 

case 639 
ok = 

case 640 
ok = 

case 643 
ok = 

case 644 
ok = 

case 645 
ok = 

case 646 
ok = 

case 647 
ok = 

case 648 



case 2047: 
70/ break; 

case 2048 : 
67 ; break ; 

case 2049 : 
89; break; 

case 2050; 
87 ; break ; 

case 2 1 29 ; 
103; break; 

case 2132: 
122; break; 

case 2133: 
104; break ; 

case 2134: 
113; break; 

case 2136; 
107; break; 

case 2137: 
108; break; 

case 2138: 
109; break; 

case 2139: 
110; break; 

case 2140: 

120; break; 

case 2143: 
114; break; 

case 2144; 
115; break ; 

case 2145: 
116; break; 

case 2146: 
117; break; 

case 2147: 
102; break; 

case 2148: 



// C 
// Y 
// H 
// q 
// z 
// h 
// a 
// k 
// 1 
/ / m 
/ / n 

// X 

/ / r 
// S 
// t 
// u 
// f 
// c 
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ok = 99 ; break ; 



case 6il9: case 


2199: 


// 


y 


ok = 121; 


break; 






case 650: case 


2150: 


// 


w 


ok = 119; 


break; 






default: 


// 


A, 


e.D.E. I.O.P 


ok = kt r ; 


break; 







} 



return ( ok ) ; 

> 








which! va 1 ) 

i n t V a 1 ; { 

i nt ok ; 








i f ( val < 10 ) 


ok = val + 


98 


e 1 se 








switch! val 


) 


{ 




case 10: 




// 


• 


ok = 96 


• 


break ; 




case 11: 




// 




ok = 99 


f 


break ; 




case 12: 




// 


• 

• 


ok = 58 


} 


break ; 




case 13; 




// 


• 


ok = 59 


• 


break ; 




case 19: 




// 


I 


It 

O 


f 


break ; 




case 15: 




// 


9 


ok = 63 


f 


break ; 




case 716: case 


2216: // 


1 


case 27 : 








ok = 39 


f 


break ; 




case 717: case 


2217: // 


II 


case 28 : 








ok = 39; 




break ; 




case 18; case 


739: // 


& 


case 2272; 








ok = 38 


f 


break ; 




case 719: case 


2279: // 


$ 


case 19: 








ok = 36 


7 


break ; 





122 



// / 



case 720: case 2220: 
case 20 : 

ok = ^7 ; break ; 



case 721: case 


2221: // 


( 


case 21: 






O 

II 

o 


break ; 




case 722: case 


2222: // 


) 


case 22: 






ok = ai ; 


break ; 




case 72b: case 


2219: // 


★ 


case 23: 






ok = a2 ; 


break ; 




case 72^ : case 


2231; // 


- 


case 24 : 






ok = 45 ; 


break i 




case 725 : case 


2232: // 


f 


case 25 : 






II 

O 


break ; 




case 72b: case 


2238: // 


= 


case 2b : 






ok = 61 ; 


break ; 




case 723: case 


2229: // 


1 

1 


ok = 124 ; 


break ; 




case 733: case 


2275: // 




ok = 35 ; 


break ; 




case 2223 : 


// 


1 


ok =91 ; 


break ; 




case 2224: 


// 


) 


ok = 93 ; 


break ; 




case 2225: 


// 


{ 


ok = 123 ; 


break ; 




case 2226: 


// 


} 


ok = 125 ; 


break ; 




case 2241: 


// 


< 


O 

>o 

II 

o 


break ; 




case 2242: 


// 


> 


ok = 62 f 


break ; 




case 2262: 


// 


T 


ok = 94 ; 


break ; 
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case 2263: 


// 


«- 


ok = 95 ; 


break ; 




case 2271: 


// 


% 


ok = 37 ; 


break ; 




case 2273 : 


// 


d 


ok = 6a ; 


break ; 





de f au 1 t ; 

ok = 0 ; break ! 

> 

return( ok ) ; 

} //endofwhich 



bu i 1 dc h ( ) { 

int P/ test f 
i nt k t 

p = apos ; 

for (k = 0;k<xi f k-t-+ ) { 

setcarC aoos/xyval [k] tO] ) ; 

setcdr( aoos^xyval [k] [11 ) ; 

apos++ ; 

} 

test = M (apos - 1 3 » 

if ( test I = EOC ) 

pe r ro r ( " s t oopeo before EOC") ! 
returnC p ) } 



conv( arr,nr ) 
char arr( 1/ nr J 
int j / sum ; 
char c h ; 
sum = 0 ; 
for ( j = 0 ; j 
c h = a r r [ j 3 
sum = sum + 
> 

returnC sum ) ; 

} 



{ 



< nr 
/ 

( (ch 



// converts a string of numbers of 
// length nr to a decimal value 



j++ ) { 

•0')*ten( nr - (j+1) ) ) J 



tenC nr ) // returns 10**nr 

int nr / { 

int j f sum ; 
sum = 1 ; 

forC j=0; j<nr; j++) 
sum = sum * 10 ; 

returnC sum ); 

} 



mainC argc/ argv ) 
int argc ? 



12U 



char *argv[] ! { 

int n, *p, last / bigch ; 

i n t k ; 

char greekr cyrillic? 



infi1e(17] = putfi1eC20] 
infileflSJ = outfi1e(211 
bigch = 2b } 
greek = 0 ; 
cyrillic = 0 ? 
if ( infile tl8] == 'G' ) 
if ( infile[17] != 'G 
> 

if ( infile (18) == 'C ) 



= argv(l) (01 ? 

= a rgv ( 1 ) ( 1 1 ; 



{ 

) { bigch = 2^1; greek 

cyrillic = 1 ? 



s t a r t ( ) ; 

ge t c a r d ( ) ? 



} 



e ( i dh 


I - 
• ^ 


ENOFOMT ) 


{ 


X i =0 


• 






last = 


1 dh 


f 




ktr - ktr + 


1 ; 




cktr = 


cktr 


+ 1 ; 




while ( 


i dh 


== last 


) { 


n = 


7 7 






wh i 


le ( 


( t emp [ 0 ] 


= ca rd Cn) ) 




for 


( k = 1? 


k < a? k++ 






temp C k J 


= card tn + k) 




n = 


n + ; 






o = 


& t emp (2) 


• 

f 



numl = convC temDr2 ) ; 

num2 = conv( p/2 ) ? 

i f ( (csn == 1 ) && (n == 1 1 ) ) ( 

if ( numl > 50 ) numl = 100 - numl 
cw = numl + num2 ? 

} 

else 

{ 

xyvalCxiltOl = numl 7 
xyval (xi) (1) = num2 7 

X i + + ; 

} 



get ca rd ( ) 7 

> 

if ( ( cktr > bigch ) && ( flag ) ) { 

k t r = 9 7 ; 
cktr = 0 7 
flag = 0 ; 

} 

if ( (num3 = notnum(last)) == NOTNUM ) 
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{ 

if ( greek ) posit = grkchC >ast ) * 2 ; 

else if ( cyrillic ) posit = cyr( last ) * 2 ; 
else posit = ktr * 2 ; 

} 

else 

{ 

posit = whichC num3 ) * 2 » 
ktr = 0 ; 

} 

ptr = buildchC ) ; 

M [ DOS i t 1 = c w ; 

M( posit + 1 1 = otr ; 

> 

resetC ) ! 



} //endofmain... 



1 



APPENDIX D. FONT OUTPUT ROUTINES 



A. VERIFYING THE VECTOR DATA 

After all of the fonts had been converted into vector 
form^ "drawhf.c" was written to allow visual inspection of 
each character in each font. This inspection ensured that 
all of the data had been t r an s f o rmed correctly and was 
available for further use in the vector to dot matrix 
conversion. It also revealed several minor omissions that 
had allowed special cases to slio through the vector genera- 
tion program described in oaragraph C of Appendix C. 

This program is available as source code on directory 
"/. fonts. 02/hershey" and is listed as "drawhf.c”. The ob- 
ject code orogram used to display the characters on the TEK- 
TRONIX uom is available on directory "/. fonts. Ol/hftools". 
Any character from any of the fonts currently available can 
be drawn by changing to the directory above and typing 
"drawhf FONT"^ where FONT is a t h ree-c ha r ac t e r code specify- 
ing the font desired. Fonts available are: 

HSR Simolex Roman 

HDR Duplex Roman 

HCR Complex Roman 

HTR Triplex Roman 

HCI Complex Italic ( 

HTl.....Triolex Italic 
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HSS Simolex Script 

HCS Complex Script 

HSG Simplex Greek 

HCG Complex Greek 

HGE Gothic English 

HGG Gothic German 

HGI Gothic Italian 

HCC Complex Cyrillic 



Many special characters are available only in the com- 
plex fonts; however/ the user is notified if the character 
desired is not available in the font currently being 
displayed* The size of the character drawn on the CRT can 
be changed by adding a size oarameter to the program call/ 
i*e*/' ^drawhf FONT SIZE”. If no ”SIZE” parameter is given/ 
the orogram defaults to a value of eight; this size was 
chosen because it made all of the vectors visible/ and be- 
cause it minimized the distortion noticeable on the short 
vectors used to approximate curves* Parameters larger than 
iO and less than one will default to those values* 



128 



ORAWHF 



17 March 1977 



ORAWHF 



NAMt 

drawhf -- draw a Hershey font on the TEKTRONIX 9019 
SYNOPSIS 

drawhf < Hershey font > t size I 



DESCRIPTION 

This program draws characters from the selected 
Hershey font on the TEKTRONIX 9019. The fonts must be 
selected from the ^ist given on the preceding pages. 

The size of the character display on the CRT can be 
changed by executing the program with an optional size 
parameter. This should be an integer between 1 and 
20. The default value is 8. 



files 

SEE also 

makeh f 



BUGS 

Only one character can be drawn at a time. It is also 
necessary to terminate the program and re-execute it 
to look at another font. 
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drawh f . c 



/ * 



/ * 



/ * 



ffde f i ne 


EOF 


9999 


«de f i ne 


EOC 


031062 


#de fine 


RES 


102a 


«de f i ne 


X 


512 


<<de f i ne 


Y 


512 


#de f i ne 


R 


0 


#de fine 


»v 


1 



i nt t25bJ / 
f Ot r, 
pt r; 

i n t c h 1 1 20) ; 

chap pathd { 

fonts. Ol/hershey/--.v" 

} ; 

char flap; ' 

mainC argc/ arov ) 

int argc > 

char *argv t) ; { 

int Xf y/ ktr , xx , yy ; 

int i> pf numl, num2f size ; 

char ibufl20]/ io, k , stop t times J 

char doit / 

i n i 1 1 ( 9b0 ) ; 

term(3/ RES) ; 
pathllR] = argvLl] il) ) 
path(20J = argv(l] (2) ; 

i f ( a rgc == 3 ) { 

size = atoi( argv(2) ) > 

if ( size > 20 ) size = 20 ; 
else if ( size <= 1 ) size = 1 ? 

> 

else size = 8 ; 

fptr = open( path, R ) ; 

k = read( fptr, M, 512 ) ? 

ibuflOl = *0’ ; 

while ( ibuf 10] 1= ') ' ) { 

i = i p = 0 ; 

f 1 ag = 1 ; 

e r ase ( ) ? 

mo V ab s ( 1 0 0 , 8 0 0 ) ; 

anmode ( ) } 



* / 



*/ 



*/ 
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IBtHlIl 



pr i nt f ( " i nput the oesired character followed by c/r 
while ( (ibuflipj = getcharf)) 1= 'Nn' ) 

i p + 1 ; 

X X = X ; 

yy = Y ; 

mova-bs ( x x / yy ) ; 

p = ( numl = ibufCO] )<<1 ; 



while ( flag ) { 

stop = times = 1 > 

ptr = MCp+l)<<l ; 
i f ( Pt r == 0 ) < 

movabs(100f200) ; 

anmode ( ) J 

printf("SORRY:'%c' is not available in 

ibuf 10] ) ; 



stop = 0 ; 
} 



else k 


= seek ( f ot r » 


Ptr, 


0 ) 




while ( 


stoo ) { 








doit - 1 ; 








k = 


read( fotr, 


ibuf# 


2 ) 


• 

f 


X = 


ibufin ; 








y = 


i bu f [0] ; 








i f 


( X > 50 ) X 


= X “ 


100 


0 


i f 


( y > 50 ) y 


= y “ 


100 


f 


i f 


( times ) { 









X = XX + (x * size) f 
y - yy ” (y * size) ; 
movabs(x/y) ; 
doit = 0 ; 
times = 0 ; 

> 

i f ( X == 50 ) { 

i f ( y != 0 ) { 

if(y== 50 ) stop= 0 ; 
else perror("bad y value...”) 
> 



else 

{ 

Ic = read( fptr/ ibuf^ 2 ) ; 

if ( (x = ibufClJ) > 50 ) X = 
i f ( (y = ibuf [ 0 ] ) > 50 ) y = 
X = XX + (x * size) f 
y = yy " (y * size) } 
movabs ( X , y ) ; 

> 

} 

else { 

if ( doit ) 

{ 

X = XX + (x * size) ; 

y = yy- (y*size) 'r 

drwabs(x,y) ; 



this 



X 



y 



font. 



100 ; 
100 ; 



> 



> 

} 

flag = 0 ; 
t send ( ) ; 

} 

movabs (100,150) ; 

anmode ( ) ! 

printf(" enter c/r to continue, ] c/r to exit:") } 

ip = 0 ; 

while ( (ibuftio) = getcharC)) 1= '\n' ) 

i o + + ; 

) 

erase ( ) i 
f ini tt (0,750) ; 

} 



A samole of the CRT display from "drawhf" is located on 
the following page. 



B. VERIFYIMG DIGITIZED FONTS 



"Prfont" is a font manipulation program designed to 
display an entire digitized font file by walking through the 
header table and plotting all of the characters that are de- 
fined in the font. It will print out one font at a time or 
as many as are needed, depending uoon ,the arguments. The 
program accepts full oath names as input? these arguments 
can be used in several ways, as is demonstrated by the exam- 
ples given below. All of these are valid calls to "prfont”; 



1) prfont HCC12 BDJ0 

The user wants to display fonts HCC12 and 80J8, both of 
whicn must exist on directory "/.fonts. 01/font". 



input the desired character followed by c/rt 






II 



A 






FIGURE D-1. "Drawhf" CRT Display 
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enter c/r to continue* 3 c/r to exit 



I, 





2) prfont /us r /doy 1 e / f on t s /H * 



The user desires to display all of the Hershey fonts lo- 
cated on a specified oirectory. 

3) prfont SIGN 41 HGG16 80R25 HCGIO /usn/oiccord/temo 

The user wants to display four files from directory 
”/. font s . 0 1 / font " and a file called "temp" on directory 
"/usr/mccord" . 

Commands of the tyoe "prfont *"> "prfont and 
"prfont BO*", will not display all of the fonts on the main 
font directory, nor will they display any combination of 
them. To disolay the entire collection of fonts or selected 
groups of them, the user must change directories to 
"/.fonts.Ol/font" and tyoe "../prfont < ARG >", where ARG is 
some font name combination of the form *, H*, MATH*, and so 
on . 

"Prfont" will hancle spacing and oagePreaks, and will 
print the font file name with each font. with fonts above 
40-42 point, the oroaram may tell you that it is out of 
memory and exit. It will suggest that you try a smaller 
page width, which will cause your fonts to be plotted with 
fewer characters per line. 



PRFONT 



2 May 1977 



PRFONT 



NAME 

prfont •“ display a digitized font on the VERSATEC 
plotter/printer 



SYNOPSIS 

. prfont [-pagewidth] < SAIL font > ! < Hershey font > ! 

< complete path name > 



DESCRIPTION 

This program allows the user to disolay a complete di- 
gitized font file on the VERSATEC olotter/printer^ so 
that he can see how it will actually look. It is 
especially useful in seeing whether or not a Hershey 
font will be acceptable after digitization. 

On fonts larger than ^10-^2 point/ it may be necessary 
to decrease the pagewidth used by "prfont" to deter- 
mine the size of its plot buffer. If this becomes 
necessary/ the program will exit and suggest that you 
try a smaller pagewidth. Pagewidth is initialized to 
216bytes. 



FILES 

/de V / r vp 
/dev /sop 



SEE ALSO 

makeh f / edf 



BUGS 

"prfont" occasionally prints some extra dots and lines 
after completing the last character in the font direc- 
tory. 



o r f on t 



c 






*/ 



/* 



*/ 



#define SPACE 1 // one 1/^ inch 

^define TOP 230 // top margin 

^define PAGEHT 1^*100 

int roww/ rows? 

int linecount PAGEHT; 

i nt pagewt h ; 

int prdev/ pldev^ infont; 

int htf maxw, Ihtf fp; 

int headf tail/ nodeotr; 

int 2ero(l]/ hdr [2561 ; 

char *1 p/ *p; 

char ff OlU; char nl 012; 

char headerfAO] {”/. fonts. 01/font/ "> ; 

char prbuf[l321/ plbuf[26Al; 



vertical space 



struct cnode 
int c c ; 
char *optr; 
char *lotr; 
int r w ; 



{ 



i nt 
i n t 
i nt 
i nt 



bytes; 
Ik; 
r f t ; 
d rc ; 



} clistll28); 
struct cnode 
struct cnode 



//char code 
//->lst raster line 
//-> next raster line 
//raster line width 
//bytes per raster line 
//left kern 
//rows from top 
//data row count 



*a ; 

*f set [1281 ; 



ma i n ( a rgc / a rgv ) 

int argc; char **argv; { 

register int i/ argotr; 
char go ; 
a rgot r = 1 ; 

if((ordev = open("/dev/spp''/l)) < 0) { 

or intf(" cannot open orinter");exit();} 
ifC(pldev=ooen("/dev/rvp"/l)) < 0) { 

printf(" cannot ooen plotter ");exit();} 
if (argvlll [01 == [//reset pagewth 

pagewth = atoiC Sargylll (11 ); go = 1 ; > 

else [ pagewth = 216; go = 0 ; ) 

i n i t ( ) ; 

while(-~argc != go) {//process all files 
p = argv [argpt r + ao) ; 
if ( *p == '/' ) { //full pathname 

if ( ( f p=open ( a rgv [a rgo t r tgol / 0 ) ) < 0) { 

or i n t f ( " c anno t ooen %s " / a rgv ( a rgp t r + go 1 ) ; 
ex i t ( ) ; > 

printf("%s opened. ..."/argvCargptr + gol ); 

} 

else { //oreoeno / f on t s . 0 1 / f on t 



f or ( i = 1 6 ; ( heade r [ i J = *-p + + ) 1= '\0';i+ + ) ; 

i f ( ( f D = open ( heade r f 0 ) ) < 0) { 

or i nt f ( "cannot ooen %s " / h eade r ) ; e x i t ( ) ; > 

printf("%s ooened "fheader); 

> 

infont = head = tail = nodeotr = roww = 0; 
read(fo/hdr,5l2); read(fo,&ht/2); 
read(fp,&(naxw,2); read(fo/8.1htf2); 
checkC); //check for bad font file 
if ( ht <= 82 ) { 

//set vert spacing 
if (ht <= ^0) rows = 2 } 
else rows = 3 ; 

> 

else rows = ^ r 

//ogbk if font oisolay won't fit 
i f ( n room ( rows * h t + i^O)) oagebreak(); 
p = orbuf; for(i=0;i<60;i++l *o+t - ' 

for(i=0;(*o++ = arav(argotr+qol[il) i= '\0';i+t) 
*p = n 1 ; 

//center^ write font name 
wri te(ordev/prbuf/ i +62); 
for(i=0;i<25;i++) write(pldev/zero»2); 
linecount =+ 25; 
whi le ( 1) { 

get row ( ) ; 
out row ( ) ; 

if( infont > 127) break; 

} 

close(fo); pr i nt f ( "c 1 osedNn" ) ; argptr++; 

//if need be/ pgbk 
i f ( n r oom ( SP AC E *2 ) ) oagebreak(); 
else soace (SPACE+2 ) ; 

> 

ex i t ( ) ; 

> 

i n i t ( ) ( 

register int i; 

for(i=0;i<128;i+ + ) fsetfi) = 8rclist(iJ; 



oagebreak() { //page eject 
int i ; 
char err; 

err = cvers (o 1 dev / 020 ) ; 
if ( err == -1 ) { 

printf(" invalid filedes in pagebreakNn"); 
e X i t ( ) ; 

> 

for ( i =0 ; i <T0P ; i + + ) w r i t e ( p 1 dev / ze r o / 2 ) ; 
linecount = TOP; 



getrowC) { //get a row of chars to plot 
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i f ( t a i 1 ) { 

roww = fset[^• + tail]->bytes; 
head = tai1++; 

} 

while ( 1 ) { 

i f (get de f ( ) ) ( 

ifCroww + fsetltail]->bytes <= oagewth) 
roww =+ f se t [ t a i 1 ] ->by t es ; 
else (tail--; ++infont? break;} 
if (++ infont > 127) break; 
t a i 1 + + ; 

> 

else if(++ infont > 127) break; 

> 

} 

putrowC) { //plot the row of characters 
register int h,i,l; int t; 
s t rue t cnode *pt r ; 
for(h=0; h < ht; h++) { 

D = &pl buf t2a] ; 
ptr = fsetUt = head)]; 
f o r ( 1 =rtead ; 1 <=t a i 1 ; 1 + + ) ( 

if(otr->drc) { 

if(h >= ptr->rft && h < o t r -> r f t tp t r ->d r c ) ( 

//lp-> next raster line 
Ip = ptr->lptr; 

//do it by bytes 
for(i=0; i<ptr->bytes; i +t) 

*p++ = *ip++; 

//update lotr for next pass 
ptr->lptr =+ ptr->bytes; 

} 

//blank line 

else for(i=0;i<ptr->bytes;i++) *o+t = O; 

> 

//blank character 

else for(i=0;i<otr->bytes;i++) *p++ = 0; 
ptr = fsett++t); 

} 

//plot 1 raster line of row of characters 
wri te(pl dev/ol buf» roof ( roww + 2^) ) ; 

> 

//row plotted/ plot some white space 
for(h=0;h<5;h++) wri te(oldev/Zero/2) ; 
linecount =+ ht+5; 

//free bytes in reverse order 
for(i=tai 1 ; i> = head; i--) 
i f ( f se t I i 1 ->opt r ) 

freeCfset [i]->oPtr); 



int getdefC) ( 

int bikc/bytc; register i; 
if(hdrlinfont*2]) { 
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bike = (hdr [infont*2) S0177a00) >> 8? 
bike =& 0377; 
byte = hdr[infont*2fl); 
if(blke) { //ptr is in blks and bytes 
seek ( f p / b 1 ke f 3 ) ; seek ( f p / by t e ^ 1 ) ; } 
else seek ( f p , by t e / 0 ) ; 
get node ( ) ; 

a->ec = infont; read ( f p / &a-> rw / 2 ) ; 
read(fp»&a->lk,2); read(fp/&a->rft/2); 
read(fp/&a->dre^2); 

a->bytes - (a*>rw%8 == 0) ? a->rw/8 : a->rw/8+l; 

if(feheek()) { // check for bad ehar dimensions 
if(a->ore) { //need bytes?^ eall alloe 

if((i=a->optr=a->lptr=al1oc(a->dre*a”>bytes))<0){ 
printff"\nout of memory..."); 
printf("use a smaller pagewidthNn"); 
e X i t ( ) ; } 

readC fp/a->lotr/a->dre*a->bytes) ; 

} 

return( 1 ) } 

> 

} 

return(O) ; 

} 

getnodeC) { 

i f ( nodept r > 1 27 ) { 

printfC" overflow"); exit();> 
a = f set [nodeot r + + ] ; 
a->optr = a->lptr = 0; 



i n t roo f ( X ) 

int x; < //send plotter even « bytes only 
if(x%2 == 0) return(x); 

//for some reason 264 bytes crashes program 
if(x == 263) return(262); 

*p = 0; return(++x); 



spac e ( x ) 

int x; { //plot X 1/4 inches space 
int i ; 

for(i=0; i<x*50; i ++) wri te(pldevrzero/2) ; 
1 i necount =+ x *50 ; 



check() { //print then exit on bad file 
if(ht < 0 II maxw < 0 II Iht < 0 || 

ht > 25b II maxw > 256 II Iht > ht) i 

printf("bad file"); exit(); 

} 

} 

int n room ( X ) 
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int X? { //rtn 1 there are not x plot lines 
//left before bottom? otherwise^ 0 
if(linecount + x > PAGEHT) return(l); 
else return(O); 

} 

fcheckC) ( //if bad chardef/ rtn 0 to skip it 
//ot herwi se; rtn 1 . 

if ( (a->rw<0 !! a->rw>255) I I (a->rft<0 !! a->rft>255) 

J1 (a->lk<0 I', a->lk>255) I! (a->drc<0 I! a->drc>255) 

) { 

p r i n t f ( " \n i n va 1 i d value for character ' %c ' \n" / i nf ont ) / 
orintf("rw %d\trft %d\tlk %d\tdrc %d\n",a->rw, 
a->rft fa->l kfa->drc) ? 
return(O) ? 

} 

else return(l); 

} 



C. USlfNiG THE DIGITIZED FONTS 



"Signmkr" is a program with limited text processing 
capabilities designeo to fill an interim gap in the compu- 
terized typesetting system at NPS. It was designed to give 
the user a limited means of outputting small files that re- 
ouired the use of the fonts from the data base? when a vir- 
tual typesetter that will accept fonts with variable dimen- 
sions is developed/ the "signmkr" can be used as a novelty 
program to generate signs and other small files that use ex- 
otic fonts. "Signmkr" can center lines of text/ leave blank 
lines/ cause oagebreaks and paragraph i ng/ and can change 
font styles from line to line. The user may also insert 
literal codes to have a certain special character used in 
his output. The use of these commands is explained in the 
next paragraph; unless otherwise indicated/ blanks are op- 



tional after commands but are recommended in most cases to 



improve readability 



Commands accepted by "signmkr" are listed below. The 
letters "ESC" preceding each command represent the ASCII es- 
cape character at octal code 033> and "\n" is the standard 
"newline" character (octal 012) used to represent carriage 
return. Each of the following commands must begin at the 
beginning of a line and some must be on lines by themselves. 

a) ESCc < one line of text > 

The "center" command centers one and only one line of 
text/ and that line is the line immediately following the 
command. This requires the user to use this command in each 
line to be centered. If a line is too long to be centered^ 
then "signmkr" will inform the user of this and ignore the 
line. 



b) ESCf< SAIL font > I < Hershey font > ! 

< complete path name > 

The "change font" command allows the user to change the 
font being used for typesetting; it must be used only at the 
head of a line or on a line by itself. A blank must not be 
left between the command and the new font name. 

c) ESCpg\n 

This is the "pageoreak" command and is similar to the 
".bo" command used in NROFF. It sends a form-feed signal to 
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the VE.RSATEC and re“positions the text to the top of a new 
page. The command should be used on a line by itself. 

d) ESCppNn 

The "begin paragraph" command indents the text line for 
paragraphing. The size of the indent is determined by the 
size of the current font. Like the "pagebreak" commands it 
should be on a line by itself. 

e) ESCs< decimal number > ! < octal number > 

The "space" command inserts blank lines within the text. 
The height of the blank line is equal to the font height. A 
blank must not be left between the command and the number. 



The following command may be used at any place within an in- 
put line : 

f) ESCo< octal nr > ! < decimal nr > 

The "literal" command can be used to request a certain 
octal or decimal code that will be used to access a charac- 
ter within the current font. The command may be-used at any 
point within a line/ but it must not be followed by a blank. 
This command is useful to access either characters that the 
user may have inserted within a font file during an edit 
session/ or to access characters from a SAIL font whose 



character cooes correspond to control characters in ASCII 



Octal numbers begin with the character 'O' and do not con- 
tain the numbers 8 or 9, e.g./ 0176 and 0103. 

Users with previous exoerience with text processing pro- 
grams should have no trouble in adapting to "signmkr". How- 
ever f caution should be exercised when using the "ESCpp" 
(paragraoh) and "ESCf" (change fonts) commands at the same 
point in the input file. The two sequences of input lines 

(a) ESCf 0DR8 (b) ESCf B0R8 

ESCpoXn ESCf HTR30\n 

ESCf HTR30\n ESCopNn 

< input text > < input text > 

are not identical. Sequence (a) will set up the indentation 

for the next paragraph assuming a font height of 8 points 



but the text 


W 1 


1 1 


actually be 


set i 


n 30 po i n t 


type# so 


the 


indentation 


w i 


1 1 


not be obvious. 


Sequence 


(b) changes 


the 


font height 


t 0 


30 


po i n t and 


then 


i ndent s 


based on 


that 



height instead of 8 ooint 



signmkr 



12 May 1977 



SIGNMKR 



NAME 

s i gnm k r 


-- a orogram with limited text processing 
ability; useful with small projects 
that require exotic fonts# or for 
making cute signs 


SYNOPSIS 

s i gnmk r 


< source file > 


DESCRIPTION 





This program is capable cf limited typesetting func- 
tions using commands described more fully above. It 
reaas the inout text and commands from a file located 
on the same oi rectory as the program, in most cases 
''/.fonts. 01". 

When designing input files for the signmaker, the user 
should try to do as much of the formatting for the 
output file as is possible. The signmaker will, in 
general, give you back what you put in? it is very 



good at 
filling 


truncating lines that are too long and at not 
lines that may be too short. 


Command 

ESCc 


Summa r y : 

Center one line of text 


ESCf 


Change the current font 


ESCpg 


Cause a oagebreak 


ESCpo 


Begin a paragraph 


ESCs 


Space down n lines 


ESCo 

FILES 


Interpret the following number as a 
literal character code 


SEE ALSO 





BUGS 



signmkr.c 



/* 



*/ 



/* 



*/ 



/ * 



*/ 



// top margin 



^define TOP 230 
^define PAGEHT 14*100 
i n t r o w w f 

si o; 

pagewth 216; 
linecount PAGEHT; 
pldevr infont^ in, 
htf maxwf Iht, fo, 
nodeptr, ooenbits; 
zero[32], hdr(256); 

*lp, *p, *t, *n, *pl; 

esc 033; char blank 040; int c; 
header[40] { " / , f on t s . 0 1 / f on t / " } 
Pbuf[90], tbuf[901, p1bufl264]; 

f mar k f 1 28] } 



^ nt 
i n t 
i nt 
i n t 
i n t 
i n t 
i n t 
char 
char 
Char 

char 
char 
char 

struct cnode 
int cc ; 
char *oPt r; 
int rw ; 
int bytes; 
int Ik; 
int r f t ; 
int d r c ; 

} clist[12ai; 

struct cnode *otr; 

struct cnode *fchar[128) 



base ; 
i D , r ; 



font name [20] 
{ 



ochar (10] 



//character code 
//-> 1 St raster 1 i ne 
//raster line width 
//bytes per raster line 
//left kern 
//rows from top 
//data row count 



main(argc, argv) 

int argc; char **argv; { 

if (a rgc < 2) ex i t ( ) ; 

else if ( ( i p = ooen ( a rgv [ 1 J , 0 ) ) < 0) { 

pr i nt f ( "cannot ooen %s" , argv ( 1 ] ) ; exitC); 

> 

i n i t ( ) ; 

while (getln()) outln(); 
pr i n t f ( "c 1 osed\n " ) ; exit(); 



i n i t ( ) { 

register int i; 

if((pldev=oPen("/dev/rvo",l)) < 0) { 

printf("cannot ooen plotter"); exitC); 

} 

for(i=0;i<l28;i++) fcharCi] = 0; 
n = fmark; for(i=0;i<128;i++) *nt+ = -i; 
fp = 0; cfont("SAIL10"); //default font 
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> 



int getln() { //rtn 1 if there's a line to 
//be p 1 o t t ed ; o t he rw i se » 0 

c h a r k ; 
t = t bu f / 

k = o; 

while ( ((*t = getch()) 1= '\n') && 

(*t 1= *\0') ) < 

if ( k+t == 89 ) { *t = '\n'; break; > 

t tt; 

> 

if ( *t == '\0' ) return(O); 

else ret urn ( 1 ) ; 



putln() { //plot as much as can fit in PAGEWTH 
regi st er int h , i ; 
roww = 0; pagewth = 21b; 

if ( si == 0) si = 2a; 
t = tbuf; p = pbuf; 
while (*t 1= '\n') { 

if (*t == esc) { if (escharC)) break; > 
if (filcharC)) break; 

} 

- ' \n ' ; 

if (t == tbuf) return; //null line in inout file 
//check for room 

if ( n room ( h t + ( h t / 1 0 + 1 ) ) ) pagebreak(); 
for(h=0;h<ht;h++) { 

d 1 = dplbufCsl); *pl = O; openbits = 8 ! 

Ptr = fchart*(p = pbuf)]; 
while (*p 1= '\n') < 

r = ptr->rw; 
if (pt r->drc ) < 

if(h >= Dtr->rft && h < pt r-> r f t +pt r->drc ) 
i = h - ptr->rft; 

Ip = ptr->optr + i »p t r->by t es ; 
while(r > 0) { 

shiftC); r =- 8; > 

} else { 

1 p = ze ro ; 
whileCr > 0) { 

shiftC); r =- 8;> 

} 

} e I se f 
Ip = zero; 
while(r>0) { 

shift(); r =- 8;> 

> 

Ptr = fchar[*++pl; 

> 

//plot one row raster line 

wri te(oldev»olPuf/ roof (roww+sl *8) ) ; 

} 






tab 



//plot some white space 
fop(h=0;h < ht/10+l;h++) 
wri te(oldevfZero/2); 
linecount =+ ht+(ht/lOtl); 
si = O; 



eschar() { //esc~ special characters 
int i/ hi^ space; 
char 1 1 / *tb/ *te; 
if(t==tbuf) { 

if ((c = *++t) == 'f') { //font change 

n = fontname; t++; 

while ( (*n = *t++) != ' ' && *n 1= '\n' ) 

n + + ; 

t t = * n ; 

*n = '\0'; c f on t ( f on t name ) ; 
i f ( (tt == '\n' ) : ; (*t == '\n' n < 

t = tbuf; return(l); } 

> else if (c == 's') { //need space 

n = ochar; t++; 
base = (*t == '0') ? 8 ; 10 ; 

while (num ( *n = * t ) ) { 

n + + ; t + + ; } 

*n = '\0'; 

hi = oct( ochar) * ht » 
if (nroom(hi)) { 

oagebreakC); t = tbuf; return(l); } 
for (i=0;i<hi;i++) 

write(oldev»zerOf2); 
linecount =+• hi ; 
t = tbuf; return(l); 

} else if (c == 'o')< //no ascii eaui valent 
n = ochar; t++; 
base = (*t == '0') ? 8 ; 10; 

while (num((*n = *t)) ) 1 

n ; t + + ; ) 

*n = '\0'; t”-; 

*t = ((i = oct(ochar)) > -1 i < 128 ) ? i 

: blank; 

} else if (c == 'c') { //center this line 

while (*++t == ' ') ; 

tb = t ; 

while (*+tt 1= '\n') ; 

while (*””t ' ') ; 

te = t ; space = 0; 
for(t=tb; t<=te; tt+) { 

if (hdr[*t*2)) 

space =+ hdr(*t*2] & 0377; 

else if (hor[0y0*2]) < 

space =+ hdrt0''4 0*2) 8- 0377; 

*t = oao; 

> e 1 se { 

p r i n t f ( " i npu t error-- "); 
orintf ("\tundefined character. . . 
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%c\n"^*t) 



f 1 ushh ( ) ; 

> 

> 

space = (space%8 == 0) ? space/8 : soace/S+i; 
si = 132 - soace/2 » 
i f (si < 2^1) { 

printfCinout error-- ")/ 

printf("\ttoo many characters to center\n”); 
f 1 ushh ( ) ; 

f o r ( i =0 ; i <s 1 ; i ■*• + ) plbuffi) = 0; 

t = t b ; 

> else if (c == 'p') { 

if ( (c = *++t) == 'g') {//pgbreak 

pagebreakC); t = tbuf; return(l); } 
else if (c == 'p') (//oaragrapn 

for(i=0;i<ht;i+- + ) 

wri te(pldev> 2 ero/ 2 ); 
si = 2a + (2a * ht/120) ; 
pagewth = oagewth - (2a * ht/120); 
t = tbuf; return(l); 

} 

else { 

or intf(" invalid character folowing "); 
print f (" 'ESC p' 
ex i t ( ) ; 

} 

} e 1 se { 

printf(”inout error- "); 

or i nt f ( "\t i nva 1 i d escape character... %c"#c); 
f1ushh(); 

} 

> else if ((c = *++t) == 'o') ( //no ascii equiv 

n = ochar; t++; 
base = (*t == '0') ? 8 : 10 ; 

while (num((*n = *t)) ) ( 

n + + ; t + + ; 1 

*n ~ '\o'; t— — ; 

*t = ( ( i =oc t ( oc h ar ) ) > -1 && i < 128) ? i 

; blank; 

} else if (c -- 'f') (//no font chg allowed here 

or i nt f ( "c h ange fonts at line head only "); 
flushh(); 

} e 1 se ( 

orintf("inout error- "); 

printf("\tinva1id escape character ( %c )\n",c); 
p r i n t f (" \ t embedded within text...\n"); 
f 1 ushh ( ) ; 

) 

return(O) ; 



int filchar() ( //move chars from tbuf to pbuf until 

//PAGEWTH exceeded/ replace nonexistent 
//chars with blank; ow/ exit 
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register i n t i ; 
i nf ont = *t f 
if (hdr[infont*2]) { 

if (fcharLinfontJ == 0) { 

getdefC); 

if (roww+a->rw <= pagewth*8) 
roww =+ a->rw; 

else {*D = '\n'; return(l);} 

> else if (roww+fchar[infontl">rw <= pagewth*Q) 
roww =+ f c ha r ( i n f on t 1 ”> rw ; 
else {*p = '\n'; return(l);> 

> else if ( hd r [ ( i n f on t =b 1 an k ) *21 ) { 

* t = blank; 

if (fchartinfontl == 0) { 

getdef ( ) ; 

if (roww+a->rw <= oagewth*8) 
roww =+ a->rw; 

else {*o = '\n'; return(l);> 

} else if ( row w + f c ha r [ i n f on 1 1 -> rw <= pagewth*8) 
roww =+ f char [ i nf ont 1 ->rw; 
else {*p = '\n'; return(l);} 

} e 1 se { 

printf("character '%3o' not defined in %s"/*t» 
header) ; 
f 1 ushh ( ) ; 

} 

*o + t = *t + + ; 
return(O); 



C f ont (q) 

char *q; { //q points to new font name 

register int i; 
if ( f o ) { 

printf("closed\n"); close(fp); 

> 

for(i=16;(header[il = *q++) 1= '\0';i++) 

i f (( fp = ooen ( header / 0 ) ) < 0) { 

orintfC" cannot open %s" /header); exit(); 

> 

printf("%s opened.. .."/header); 
dea 1 1 oc ( nodep t r ) ; nodeptr = 0; 
for (i =0; i <128; i + + ) fcharli] = O; 
read(fp/hdr/512); read(fp/&ht/2); 
read(fp/4maxw/2); read(fp/&lht/2); 
if(check()) { 

printf("%s bad font f i 1 e" / heade r ) ; 
ex i t ( ) ; 

} 

} 

deal 1 oc ( X ) 

int x; { //free in reverse order 
// of allocation 



while ( X ) 



} 



i f ( fchar (fmark (-“xl ) ”>opt r) 

freeCfchar (fmark (x] ] •*>optr) } 



pagebreak() { //page eject 
i n t i ; 
char err? 

err = c ve r s ( p 1 de v / 020 ) ; 
if ( er r == - 1 ) ( 

pr i nt f ( '* i nva 1 i d filedes in pagebreak\n" ) ? 
ex i t ( ) ? 

} 

for ( i =0 ; i <T0P ; i + + ) w r i t e ( o 1 de v > z e ro / 2 ) ? 
i i necoun t = TOP ? 



get de f ( ) { 

int blkc/bytc? register i? 

bUc = (hdr (infont*2) 8,0l77a00) >> 8? 

bike =& 0377; 

byte = hdr ( i n f ont *2 + 1 ] ; 

i f ( b 1 kc ) { 

seek ( f p> b 1 kc / 3 ) ; seek ( f p/by tc / 1 ) ; } 

else see k ( f p > by t c / 0 ) ; 
ge t node ( ) ; 
a->cc = i n f ont ; 
read(fpr)ia“>rw/2) J 

read(fp/&a->l k,2); read(fo^&a->rft/2); 
read(fp»ia->drc/2); 

a->bytes = (a->rw%8 == 0) ? a~>rw/8 ; a->rw/8+l 
if(a->drc) { 

if((i=a->optr = anoc(a->drc*a->bytes)) < 0) ( 

deal loc(nodeptr-l); 
getdefC); return; 

} 

readC fO/a->oPt r,a->drc*a->bytes) ; 

> 

in = 0 ; 

f o r ( i =0 ; i <nodeo t r ; i ++ ) { 

ifCfmarklil == infont) in++; 

) 

if(in == 0) fmark(nodeptr-l) = infont? 



get node ( ) ( 

ifCnodeptr > 127) { 

Drintf("overflow"); exit();> 
a = f c ha r ( i n f on t ] = 8.c 1 i s t (nodeot r + + ] ; 

a->opt r = 0 ; 



int roo f ( X ) 

i n t X ; { 

X = (x%8 == 0) ? x/8 : x/8 + l; 

if(x%2 == 0) return(x); 
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if(x == 263) return(262); 
*++d1 = 0; return(++x); 



int checkC) { 

i f (ht < 0 ! ! maxw < 0 ; I 1 ht < 0 ! | 

ht > 120 I! maxw > 256 |! Iht > ht) return(l); 
else return(O); 



i nt nroom ( x ) 

int X ; { 

ifClinecount + x > PAGEHT) return(l); 
else return(O); 



s h i f t ( ) { 

int t b ; 

tb = *lo? tb =8r 0377; tb =<< openbits? 
i f (r > 7) { 

*pl++ =! (tb 8. 0177a00) >> 8; 

*pl Of *pl =! tb & 0377; 

> e 1 se < 

if(r <= ooenbits) { 

*Dl =! (tb 8 0177^00) >> 8; 
ooenb its =- r ; 

} else ( 

*d 1++ =! (tb 8. 0177a00) >> 8; 

*d1 =& 0; *d 1 =I tb & 0377; 
ooenpits = 8- ( r-ooenb i t s ) ; 

> 

} 

1 Dt + ; 



int oc t ( CP ) 

char *cp; ( 

int i ; i = 0 ; 

base = (*cp == '0') ? 8 ; 10; 

while (num(*cp) && *CP 1= '\0') 

i = i*base f *cp++ - 'O'; 
return ( i ) ; 



int num ( cp ) 



char CP ; 


{ 










i f (base == 


10 


&& 


(cp > = 


'O' && CP <= 


'9')) return(l) 


i f (base == 


8 


is. 


( cp > = 


'O' && CP <= ' 


'7')) return (1); 


if (cp == ' 


'8' 


1 1 
1 1 


cp = = 


'9' ) < 





printf("input error-- "); 

printf("\timproper octal number. ..%d"fCP); 
while (*t 1= '\n') outchar(*t++); 

e X i t ( ) ; 

> 

else return(O); 
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} 



getch ( ) < 

char 1 1 f s f 
s = read(ipf&ttfl)f 
i f ( s == 0 ) return (' \0 ') ; 
else ret u rn ( 1 1 ) ; 

> 

f1ushh() { //print bad input line and exit 
while (*t i= '\n') pu t c ha r ( * t ++ ) ; 
ex i t ( ) ; 

} 



\ 
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APPENDIX E. HERSHEY FONTS AVAILABLE 



The fonts listea below are currently available on 
"/. fonts. 01/hershey" in vector form. They are used in this 
form by "drawhf"» and they are converted to dot matrix form 
from vectors by "makehf". The fonts available are : 



HSR 


— — 


Simplex 


Roman 


HSG 


-- 


11 


Greek 


HSS 


-- 


II 


Sc r i o t 


HOR 


-- 


Duplex 


Roman 


HCR 


-- 


Comp 1 ex 


Roman 


HCG 


-- 


M 


Greek 


HCS 


-- 


11 


Script 


HCI 


-- 


11 


1 1 a 1 i c 


HCC 


-- 


H 


Cyrillic 


HTR 


— 


T r 1 D 1 e X 


Roman 


HTI 


— 


II 


1 1 a 1 i c 


HGE 


mm « 


Gothic 


Enq 1 i sh 


HGG 


-- 


11 


Ge rman 


HGI 




H 


1 1 a 1 i a n 



The following pages provide a display of each font and 
its character set. The last cage of this appendix contains 
a guotation written in each font for comparison and contrast 
of the fonts. 
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FIGURE E-1, Hershey Font Examples 
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FIGURE E-1. (Continued) 
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FIGURE E-1. (Continued) 
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FIGURE E-2. Hershev Font ComDarisons 
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APPENDIX F, FONT/CHARACTER DIMENSIONS 



Previoue character 
ends here ■■■■■ 



left 

kern 



charac ter 
— width — 



Next character 
begins here 



right 
kern - 



he i ght 




T 



Logical top 



rows from top 

i 



data row count 



Logical bottom 



FIGURE F-1. Font dimensions 



This fiaure> taken from Reference displays the di- 
mensions of fonts and characters that must be taken into ac- 
count when setting tyce by computer. 

The most important characteristics of a font are its 
heights the width of its widest character/ and its logical 
height. The values for height and logical height remain con- 
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stant throughout a font and are the real measure of compati- 
bility among fonts/ i.e./ in creating a new font/ characters 
from fonts of differing heights or logical heights cannot be 
mi X ed . 



Character width/ raster width/ and left kern are the 
characteristic dimensions of characters. The right kern is 
not listed/ but may be computed if desired. There are two 
additional dimensions which play an important part in the 
stored rep r esen t a t i on of the digitized character. These are 
rows -f r om- t OP ( r f t ) / a count of the blank raster lines from 
the logical too of the character to the first non-blank row/ 
and the dat a-row-c'ount (drc ) / a count of the number of raster 
lines that contain character information. The font height 
minus the sum of rft plus drc provides the number of blank 
lines that must be adoed after the last nonblank raster line 
to complete the character. 

Another important characteristic of a font is the base- 
line. This is the distance from the logical top of the 
character to the imaginary line on which the row of charac- 
ters rests/ although some characters may extend below this 
line. All characters in a given font file have the same 
height and baseline. 

"Kerning" is a characteristic which occurs only when a 
font has a non-zero left or right kern/ so that the charac- 
ter width is smaller than the raster width. Kerning allows 
the computer to set some characters closer to others to 
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avoid leaving what apoears to be too much white space 
between characters? of course^ the comouter must first make 
some checks to ensure that no character overlays occur. 
'/Jhen setting a kerned font» the typesetting program will 
space ahead according to the character width and not the 
raster width. Kerning occurs in only two of the SAIL fonts. 
Neither the current version of the virtual typesetter nor 
the typesetting program described in this guide deal with 
kerning^ but font files and programs provide a place for the 
left kern so that the concept may be fully implemented later 
without reorganizing font file structure. 
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APPEiMOIX G 



THE 'SAIL* FONTS 



A. 'SAIL' FONTS AVAILABLE 

All of the digitized fonts currently available are list- 
ed below by typeface and style. Each of these is located on 
directory " / . f on t s . 0 I / f on t " : 



80J8 


- - 


8 


point 


Bodon 


i a t h e m a t i c a 1 


BORIO 


-- 


10 


II 


It 


Roman 


BOIlO 


-- 


10 


It 


II 


1 1 a 1 i c 


BOJIO 


-- 


10 


II 


It 


Mathematical 


BDRIOX 


-- 


IQ 


It 


II 


Bold 


B0R12 


-- 


12 


It 


II 


Roman 


BOI 12 


-- 


12 


II 


It 


1 1 a 1 i c 


B0812 




12 


II 


It 


Bold 


BORIS 


-- 


15 


II 


II 


Roman 


BDI 15 


-- 


15 


II 


II 


1 1 a 1 i c 


B0R25 


— 


25 


II 


M 


Roman 


NONS 


-- 


10 


M 


N o n i e 


Roman 


NONSI 


-- 


10 


II 


It 


1 1 a 1 i c 


NONSB 


-- 


10 


It 


II 


Bold 


N0NS8I 


-- 


10 


It 


It 


Bold Italic 


NONM 


-- 


12 


It 


II 


Roman 


NONMI 


-- 


12 


II 


II 


1 1 a 1 i c 


NONMB 


- • 


12 


It 


II 


Bold 



lb2 



NONiMBI 


- - 


12 


point 


NONL 


-- 


W4 


M 


NONLI 


-- 


1 a 


M 


NONLB 


-- 


la 


M 


NONLBI 


-- 


la 


M 


SAILIO 


-- 


1 0 


If 


SHD15 


-- 


15 


If 


SIGN22 


-- 


22 


M 


SiGNa 1 


-- 


ai 


II 


GRFXIO 


-- 


1 0 


II 


GRFX 1 a 


-- 


la 


II 


MATH 10 


-- 


10 


If 


MATHl 3 


-- 


13 


ft 


MATHIS 


-- 


15 


If 


MATH20 


-- 


20 


II 


MATH21 




21 


II 



Nonie Bold Italic 
” Roman 
•' Italic 
" Bold 
" Bold Italic 
Delegate (similar 
Shadow 
S i gn 
S i gn 

G raoh i c s 

G r aoh i c s 

Math 

Math 

Math 

Math 

Math 



to IBM Selectric) 



B. 'SAIL' CtiARACTER CODES 

The SAIL character set and c o r r esoond i ng octal codes are 
found on the next pager with the ASCII character set. A 
blank indicates that no character exists for that code. 
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100 


a 
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I 


120 
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Q 


130 


X 


Y 
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f 


a 
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h 


i 


160 


P 


q 


170 


X 
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FIGURE G-1. SAIL Character Set 





0 


1 


2 


3 


4 


5 


6 


7 


000 


NUL 


SOH 


STX 


ETX 


EOT 


ENQ 


ACK 


BEL 


010 


BS 


HT 


NL 


VT 


NP 


CR 


SO 


SI 


020 


DLE 


DCl 


DC2 


DC3 


DC4 


NAK 


SYN 


ETB 


030 


CAN 


EM 


SUB 


ESC 


FS 


GS 


RS 


US 


040 


SP 


t 


ft 


If 


$ 


$ 


6 


f 


050 


( 


i) 


* 


+ 


1 


- 




/ 


060 


0 


1 


2 


3 


4 


5 


6 


7 


070 


8 


9 


; 


t 


< 


s 


> 


7 


100 


@ 


A 


B 


C 


D 


E 


F 


G 


no 


H 


I 


J 


K 


L 


M 


N 


0 


120 


p 


Q 


R 


S 


T 


U 


V 


W 


120 


X 


Y 


Z 


[ 


\ 


T 


T 


*■ 


130 


t 


a 


b 


c 


d 


e 


f 


g 


140 


h 


i 


j 


k 


1 


ID 


n 


0 


150 


P 


q 


r 


s 


t 


U 


V 


w 


160 


X 


y 


z 


{ 


1 


\ 


> 


DEL 



. ASCII Character Set 
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p 



I 




APPENDIX H 



FINDING A FONT 



A. FONT LOCATION 



All of the fonts and font manioulation routines are lo- 
cated on a mountable file called "fonts. 01", To access this 
file/ the following procedure is necessary after logging in; 

7 , fsmount fonts. 01 
/dev/fonts. 01 
spcl aaaa 
files bbbb 
large cccc 
d i r ec dddd 
i nd i r eeee 
used f f f f 
free gggp 
/dev/fonts. 01 

/dev/ font s . 0 1 mounted to directory /.fonts. 01 

% 

A complete description of the directory configuration is 
given on the next page. Detailed explanations of the font 
editor "edf" and the Hershey conversion program "makehf" 
are given in Appendix A and in Chapter III respectively; 
brief descriptions of these programs are also located with 
the program listings in Appendixes A and B respectively. 
The source programs^ a copy of "A User's Guide For Font 
Manioulation at the Naval Postgraduate School"/ and instruc- 
tions for acquiring both are contained on "fonts. 02"/ anoth- 
er mountable file which is mounted and accessed in the same 
manner as "fonts. 01". 
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B. MOUNTABLE FILE DESCRIPTION 



The following diagrams describe the directory configura- 
tions of "fonts. 01” and "fonts. 02”. A "d" in a branch of 
the tree indicates that the next name is a directory. 

1. Fonts. 01 



/ . f on t s . 0 1 

I 



1 

1 


d 


d 


d 




d 


ed f 


1 

1 


1 

1 


1 

1 




1 

1 


HFONT 


font 


he r shey 


h f t 00 1 s 




sail 


makeh f 


1 

1 


1 

1 


1 

1 




1 

1 


p r f on t 


SAIL 


Hershey 


dr awh f 




t r an s f i 1 e 


s i gnmk r 


fonts 


fonts 


c n V r t 




listfont 








mk vec 






The 


file called "HFONT" 


n 0 r ma 1 I y 


contains the most 


recent 1 y created 


Hershey fontr unless 


i t 


was spec i f i ca 1 1 y 


written to 


ano t h e r 


di rec tory . 


This process 


is explained in 


Append i x B . 


All other oroaram 


names that 


pertain to Hershey 



fonts are exolained elsewhere in this report. "Transfile" 
and "listfont" pertain to the conversion of SAIL fonts for 
NPS use and are discussed in Reference 6. 



2 . Fonts. 02 



/.fonts. 02 



I 

I 



I 

I 



d d 



I 

I 



I 

I 



d d 



I 

I 

he r shey 

I 

I 

makeh f .c 
d r avw h f . c 
cnv rt . c 
mkvec .c 



I 

I 

common 

I 

I 

sidnmkr.c 
orfont *c 
eo f • c 



I 

I 



sail 



I 

I 



t rans f i 1 e .c 
listfont.c 



use rman 

I 

I 

userqu i de 
userenclosures 
D r i n t man 

To obtain a personal copy of the User's Guides mount 
both "fonts. 01" and "fonts. 02" and type "sh 
/. fonts. 02/userman/printman". The manual will be directed 
to the line printer and the figures will be clotted on the 
VERSATEC plotter/printer. 
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